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

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffc4
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x3c], ecx
mov byte [ebp - 5], dl
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x760364
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5fc]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4bc]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
cmp dword [eax + 0x6e8], 0
je 0x760089
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x608]
cmp byte [eax + 0x57], 0
je 0x760089
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x608]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4bc]
mov edx, 0xfa
sub edx, dword [eax + 0x48]
mov eax, dword [eax + 0x40]
sub eax, edx
mov edx, dword [ebp - 4]
mov edi, dword [edx + 0x5ec]
mov edx, dword [edi + 0x40]
mov esi, edx
sub esi, eax
mov ebx, edx
mov edx, dword [edi + 0x44]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f4]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x2c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5ec]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov edx, dword [ebp - 0x24]
sub edx, 2
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f4]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f4]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5ec]
mov dl, 3
call fcn.004ac178
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
call sub.kernel32.dll_GetTickCount
mov dword [ebp - 0x1c], eax
call sub.kernel32.dll_GetTickCount
mov edi, eax
sub edi, dword [ebp - 0x1c]
mov dword [ebp - 0x34], edi
xor eax, eax
mov dword [ebp - 0x30], eax
fild qword [ebp - 0x34]
fdiv dword [0x760374]
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 [0x7a06c0]
mov cl, 1
mov edx, 3
call fcn.0047962c
fstp qword [ebp - 0x18]
wait
mov dword [ebp - 0x38], esi
fild dword [ebp - 0x38]
fmul qword [ebp - 0x18]
call sub.rtl120.bpl__System__ROUND_qqrv
mov edx, ebx
sub edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5ec]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
fld qword [ebp - 0x18]
fmul dword [0x760378]
call sub.rtl120.bpl__System__ROUND_qqrv
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5ec]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
lea edx, [ebp - 0x2c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5ec]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov edx, dword [ebp - 0x24]
sub edx, 2
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f4]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f4]
cmp byte [eax + 0x57], 0
je 0x76034e
fld qword [ebp - 0x18]
fcomp dword [0x76037c]
wait
fnstsw ax
sahf
jne 0x76011b
movzx ecx, byte [ebp - 5]
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.00760474
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f4]
cmp byte [eax + 0x57], 0
je 0x76034e
lea eax, [ebp - 0x3c]
push eax
mov eax, dword [0x7a0700]
mov eax, dword [eax]
mov ecx, 0x76038c
mov edx, 0x7603b4
call fcn.00593694
mov edx, dword [ebp - 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
call fcn.004b2934
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
mov dl, 1
call fcn.004b25c0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
mov edx, 0xc8
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5ec]
mov edx, dword [eax + 0x44]
add edx, 3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5ec]
mov edx, dword [eax + 0x40]
add edx, 5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
call sub.vcl120.bpl__Controls_TControl_BringToFront_qqrv
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
mov eax, dword [ebp - 4]
mov si, 0xffb6
call sub.rtl120.bpl__System__CallDynaInst_qqrv
test al, al
je 0x76032e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
mov si, 0xffb6
call sub.rtl120.bpl__System__CallDynaInst_qqrv
test al, al
je 0x76032e
xor eax, eax
push ebp
push 0x760324
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
mov edx, dword [eax]
call dword [edx + 0xd8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x76032e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
xor edx, edx
call fcn.004b28ac
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x5f0]
xor edx, edx
call fcn.004b2858
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x76036b
lea eax, [ebp - 0x3c]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret