Function at 0x740598
Capabilities:
Check for time delay via gettickcount
Print debug messages

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffb4
push ebx
push esi
xor edx, edx
mov dword [ebp - 0x24], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x740800
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [0x83ad44], 1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x294]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov eax, dword [ebp - 4]
mov byte [eax + 0x34d], 1
mov eax, dword [ebp - 4]
cmp byte [eax + 0x57], 0
je 0x740603
push 0xffffffffffffffff
xor ecx, ecx
xor edx, edx
mov eax, 0x2b16
call fcn.00410e48
push 0xffffffffffffffff
xor ecx, ecx
mov edx, 1
mov eax, 0x47b
call fcn.00410e48
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x294]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov dl, 3
mov eax, dword [ebp - 4]
call fcn.0073e07c
xor eax, eax
push ebp
push 0x7407e3
push dword fs:[eax]
mov dword fs:[eax], esp
call sub.kernel32.dll_GetTickCount
mov esi, eax
jmp 0x740727
call sub.kernel32.dll_GetTickCount
mov ebx, eax
sub ebx, esi
cmp ebx, 0x7530
jae 0x740734
push 0xa
call sub.kernel32.dll_Sleep_1
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
mov dword [ebp - 0x20], ebx
xor eax, eax
mov dword [ebp - 0x1c], eax
fild qword [ebp - 0x20]
fdiv dword [0x740810]
add esp, 0xfffffff4
fstp xword [esp]
wait
push 0x3fff
push 0x80000000
push 0
call sub.rtl120.bpl__Math_Min_qqrxgxg
fstp qword [ebp - 0x10]
wait
push dword [ebp - 0xc]
push dword [ebp - 0x10]
mov eax, dword [0x806b44]
mov cl, 1
mov edx, 3
call fcn.00555080
fstp qword [ebp - 0x18]
wait
lea eax, [ebp - 0x24]
push eax
fld qword [ebp - 0x10]
fstp xword [ebp - 0x40]
wait
lea eax, [ebp - 0x40]
mov dword [ebp - 0x34], eax
mov byte [ebp - 0x30], 3
fld qword [ebp - 0x18]
fstp xword [ebp - 0x4c]
wait
lea eax, [ebp - 0x4c]
mov dword [ebp - 0x2c], eax
mov byte [ebp - 0x28], 3
lea edx, [ebp - 0x34]
mov ecx, 1
mov eax, 0x740820
call fcn.00411984
mov eax, dword [ebp - 0x24]
call fcn.007386e4
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x2c8]
mov eax, dword [eax + 0xc]
dec eax
je 0x7406fb
dec eax
je 0x74070f
jmp 0x740727
fld qword [ebp - 0x18]
add esp, 0xfffffffc
fstp dword [esp]
wait
mov eax, dword [ebp - 4]
call fcn.0073d180
jmp 0x740727
fld dword [0x74083c]
fsub qword [ebp - 0x18]
add esp, 0xfffffffc
fstp dword [esp]
wait
mov eax, dword [ebp - 4]
call fcn.0073d180
cmp byte [0x83ad44], 0
jne 0x740637
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x2c8]
mov eax, dword [eax + 0xc]
dec eax
je 0x740748
dec eax
je 0x74077f
jmp 0x740793
xor eax, eax
call fcn.007052c0
test al, al
je 0x740769
push 0x740840
call sub.kernel32.dll_OutputDebugStringW
mov dl, 2
mov eax, dword [ebp - 4]
call fcn.0073e07c
jmp 0x740793
push 0x740868
call sub.kernel32.dll_OutputDebugStringW
mov dl, 4
mov eax, dword [ebp - 4]
call fcn.0073e07c
jmp 0x740793
push 0x7408ac
call sub.kernel32.dll_OutputDebugStringW
mov dl, 1
mov eax, dword [ebp - 4]
call fcn.0073e07c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x7407ea
mov eax, dword [ebp - 4]
cmp byte [eax + 0x34c], 0
jne 0x7407c8
mov eax, dword [ebp - 4]
cmp byte [eax + 0x57], 0
je 0x7407c8
push 0xffffffffffffffff
xor ecx, ecx
mov edx, 2
mov eax, 0x47b
call fcn.00410e48
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x294]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov eax, dword [ebp - 4]
mov byte [eax + 0x34d], 0
ret