Function at 0x683938
Capabilities:
Check for time delay via gettickcount

Disassembly:
push ebp
mov ebp, esp
mov ecx, 7
push 0
push 0
dec ecx
jne 0x683940
push ecx
push ebx
push esi
push edi
mov ebx, eax
xor eax, eax
push ebp
push 0x683b9c
push dword fs:[eax]
mov dword fs:[eax], esp
call sub.kernel32.dll_GetTickCount
mov edi, eax
mov dword [ebp - 0xc], 0x64
jmp 0x683a9f
cmp byte [ebx + 0x43c], 0
jne 0x683ab1
call sub.kernel32.dll_GetTickCount
sub eax, edi
mov dword [ebp - 0x14], eax
xor eax, eax
mov dword [ebp - 0x10], eax
fild qword [ebp - 0x14]
fdiv dword [0x683bac]
fstp qword [ebp - 8]
wait
push dword [ebp - 4]
push dword [ebp - 8]
mov eax, dword [0x8069e4]
mov cl, 1
mov edx, 3
call fcn.00555080
fstp qword [ebp - 8]
wait
fild dword [ebp - 0xc]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
mov esi, eax
mov eax, dword [ebx + 0x3ac]
cmp esi, dword [eax + 0x1b0]
je 0x683a9f
mov edx, esi
mov eax, dword [ebx + 0x3ac]
call fcn.004c78fc
cmp byte [ebx + 0x418], 0
je 0x683a33
movzx eax, byte [0x683bb0]
push eax
lea eax, [ebp - 0x18]
push eax
lea ecx, [ebp - 0x1c]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x683bc0
call fcn.00584a64
mov eax, dword [ebp - 0x1c]
push eax
lea edx, [ebp - 0x20]
mov eax, esi
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x20]
mov edx, 0x683bfc
pop eax
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x18]
mov eax, dword [ebx + 0x3b8]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x683a7d
movzx eax, byte [0x683bb0]
push eax
lea eax, [ebp - 0x24]
push eax
lea ecx, [ebp - 0x28]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x683c10
call fcn.00584a64
mov eax, dword [ebp - 0x28]
push eax
lea edx, [ebp - 0x2c]
mov eax, esi
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x2c]
mov edx, 0x683bfc
pop eax
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x24]
mov eax, dword [ebx + 0x3b8]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
mov eax, dword [ebx + 0x3ac]
call sub.vcl120.bpl__Controls_TControl_Refresh_qqrv
mov eax, dword [ebx + 0x3b8]
call sub.vcl120.bpl__Controls_TControl_Refresh_qqrv
call sub.kernel32.dll_GetTickCount
sub eax, edi
cmp eax, 0x1388
jb 0x68396e
cmp byte [ebx + 0x43c], 0
je 0x683ac9
mov dword [ebx + 0x2a4], 7
jmp 0x683b81
mov edx, 0x64
mov eax, dword [ebx + 0x3ac]
call fcn.004c78fc
cmp byte [ebx + 0x418], 0
je 0x683b24
movzx eax, byte [0x683bb0]
push eax
lea eax, [ebp - 0x30]
push eax
lea ecx, [ebp - 0x34]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x683bc0
call fcn.00584a64
mov eax, dword [ebp - 0x34]
mov ecx, 0x683c48
mov edx, 0x683bfc
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x30]
mov eax, dword [ebx + 0x3b8]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x683b64
movzx eax, byte [0x683bb0]
push eax
lea eax, [ebp - 0x38]
push eax
lea ecx, [ebp - 0x3c]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x683c10
call fcn.00584a64
mov eax, dword [ebp - 0x3c]
mov ecx, 0x683c48
mov edx, 0x683bfc
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x38]
mov eax, dword [ebx + 0x3b8]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebx + 0x3ac]
call sub.vcl120.bpl__Controls_TControl_Refresh_qqrv
mov eax, dword [ebx + 0x3b8]
call sub.vcl120.bpl__Controls_TControl_Refresh_qqrv
push 0x32
call sub.kernel32.dll_Sleep_1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x683ba3
lea eax, [ebp - 0x3c]
mov edx, 0xa
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret