Function at 0x7bea08
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 0x7bed50
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x550]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4a8]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
cmp dword [eax + 0x6b0], 0
je 0x7bea75
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x55c]
cmp byte [eax + 0x57], 0
je 0x7bea75
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x55c]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4a8]
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 + 0x540]
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 + 0x548]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x2c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x540]
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 + 0x548]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x548]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x540]
mov dl, 3
call fcn.004ddfec
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 [0x7bed60]
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 [0x8069e4]
mov cl, 1
mov edx, 3
call fcn.00555080
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 + 0x540]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
fld qword [ebp - 0x18]
fmul dword [0x7bed64]
call sub.rtl120.bpl__System__ROUND_qqrv
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x540]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
lea edx, [ebp - 0x2c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x540]
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 + 0x548]
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 + 0x548]
cmp byte [eax + 0x57], 0
je 0x7bed3a
fld qword [ebp - 0x18]
fcomp dword [0x7bed68]
wait
fnstsw ax
sahf
jne 0x7beb07
movzx ecx, byte [ebp - 5]
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.007bee60
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x548]
cmp byte [eax + 0x57], 0
je 0x7bed3a
lea eax, [ebp - 0x3c]
push eax
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov ecx, 0x7bed78
mov edx, 0x7beda0
call fcn.00584b34
mov edx, dword [ebp - 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
call fcn.004a35f0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
mov dl, 1
call fcn.004a327c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
mov edx, 0xcc
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x540]
mov edx, dword [eax + 0x44]
add edx, 3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x540]
mov edx, dword [eax + 0x40]
add edx, 3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
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 0x7bed1a
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
mov si, 0xffb6
call sub.rtl120.bpl__System__CallDynaInst_qqrv
test al, al
je 0x7bed1a
xor eax, eax
push ebp
push 0x7bed10
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
mov edx, dword [eax]
call dword [edx + 0xd8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x7bed1a
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
xor edx, edx
call fcn.004a3568
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
xor edx, edx
call fcn.004a3514
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x7bed57
lea eax, [ebp - 0x3c]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret