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

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffe0
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x20], ecx
mov byte [ebp - 5], dl
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x76fa55
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
cmp byte [eax + 0x3f8], 0
jne 0x76fa3f
mov eax, dword [ebp - 4]
test byte [eax + 0x1c], 8
jne 0x76fa3f
mov eax, dword [0x80721c]
cmp dword [eax], 0
je 0x76fa3f
mov eax, dword [0x80721c]
mov eax, dword [eax]
cmp byte [eax + 0x57], 0
je 0x76fa3f
mov dword [ebp - 0x14], 0x118
mov dword [ebp - 0xc], 0x230
call sub.kernel32.dll_GetTickCount
mov dword [ebp - 0x10], eax
mov eax, dword [0x80721c]
mov eax, dword [eax]
cmp byte [eax + 0x283], 2
sete byte [ebp - 0x15]
mov eax, dword [0x80721c]
mov eax, dword [eax]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov eax, dword [ebp - 4]
mov byte [eax + 0x3f9], 1
xor edx, edx
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3a8]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x380]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x384]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x388]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x38c]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x390]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x394]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3b8]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x398]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x39c]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3a0]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3ac]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3e8]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3b0]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3b4]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3ec]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3a4]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x388]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetHeight_qqri
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
xor eax, eax
push ebp
push 0x76f8b5
push dword fs:[eax]
mov dword fs:[eax], esp
cmp byte [ebp - 5], 0
je 0x76f7ed
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.00425a10
test al, al
je 0x76f706
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov dl, 1
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Forms_TCustomForm_SetVisible_qqro
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_BringToFront_qqrv
jmp 0x76f7b4
xor edx, edx
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov dl, 1
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Forms_TCustomForm_SetVisible_qqro
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_BringToFront_qqrv
xor edi, edi
jmp 0x76f79d
inc edi
mov eax, edi
add eax, eax
mov dword [ebp - 0x1c], eax
fild dword [ebp - 0x1c]
call sub.rtl120.bpl__System__ROUND_qqrv
mov ebx, eax
cmp byte [ebp - 0x15], 0
je 0x76f752
mov eax, edi
add eax, eax
lea eax, [eax + eax*4]
mov dword [ebp - 0x1c], eax
fild dword [ebp - 0x1c]
call sub.rtl120.bpl__System__ROUND_qqrv
mov ebx, eax
mov eax, dword [ebp - 0x14]
sub eax, esi
cmp ebx, eax
jle 0x76f764
mov eax, dword [ebp - 4]
mov ebx, dword [ebp - 0x14]
sub ebx, dword [eax + 0x48]
mov edx, esi
add edx, ebx
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
push 2
call sub.kernel32.dll_Sleep_1
call sub.kernel32.dll_GetTickCount
sub eax, dword [ebp - 0x10]
cmp eax, dword [ebp - 0xc]
jb 0x76f79d
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
jmp 0x76f7ac
mov eax, dword [ebp - 4]
mov esi, dword [eax + 0x48]
cmp esi, dword [ebp - 0x14]
jl 0x76f726
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_BringToFront_qqrv
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004255f8
mov edx, dword [ebp - 4]
mov dword [edx + 0x3f0], eax
lea edx, [ebp - 0x20]
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.0042511c
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 4]
add eax, 0x3f4
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x76f8ab
mov eax, dword [0x80721c]
mov eax, dword [eax]
mov eax, dword [eax + 0x588]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
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]
cmp byte [eax + 0x57], 0
je 0x76f8ab
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.00425a10
test al, al
jne 0x76f8a1
xor edi, edi
jmp 0x76f897
inc edi
mov eax, edi
add eax, eax
lea eax, [eax + eax*4]
mov dword [ebp - 0x1c], eax
fild dword [ebp - 0x1c]
call sub.rtl120.bpl__System__ROUND_qqrv
mov ebx, eax
cmp byte [ebp - 0x15], 0
je 0x76f859
imul eax, edi, 0x32
mov dword [ebp - 0x1c], eax
fild dword [ebp - 0x1c]
call sub.rtl120.bpl__System__ROUND_qqrv
mov ebx, eax
cmp esi, ebx
jge 0x76f85f
mov ebx, esi
mov edx, esi
sub edx, ebx
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
push 0
call sub.kernel32.dll_Sleep_1
call sub.kernel32.dll_GetTickCount
sub eax, dword [ebp - 0x10]
cmp eax, dword [ebp - 0xc]
jb 0x76f897
xor edx, edx
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
jmp 0x76f8a1
mov eax, dword [ebp - 4]
mov esi, dword [eax + 0x48]
test esi, esi
jg 0x76f82e
xor edx, edx
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Forms_TCustomForm_SetVisible_qqro
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x76f8bf
cmp byte [ebp - 5], 0
je 0x76fa27
xor eax, eax
push ebp
push 0x76fa1d
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3a8]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x380]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x384]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x388]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x38c]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x390]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x394]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3b8]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x398]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x39c]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3a0]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3ac]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3e8]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3b4]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3ec]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3a4]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3e4]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
call fcn.0076e4f8
mov eax, dword [0x80721c]
mov eax, dword [eax]
mov edx, dword [ebp - 4]
call fcn.007c84b8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x76fa27
mov eax, dword [ebp - 4]
mov byte [eax + 0x3f9], 0
mov eax, dword [0x80721c]
mov eax, dword [eax]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x64]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x76fa5c
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret