Function at 0x65c6ac
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 0x65cc29
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
cmp byte [eax + 0x3f8], 0
jne 0x65cc13
mov eax, dword [ebp - 4]
test byte [eax + 0x1c], 8
jne 0x65cc13
mov eax, dword [0x7a0e70]
cmp dword [eax], 0
je 0x65cc13
mov eax, dword [0x7a0e70]
mov eax, dword [eax]
cmp byte [eax + 0x57], 0
je 0x65cc13
mov dword [ebp - 0x14], 0x118
mov dword [ebp - 0xc], 0x230
call sub.kernel32.dll_GetTickCount
mov dword [ebp - 0x10], eax
mov eax, dword [0x7a0e70]
mov eax, dword [eax]
cmp byte [eax + 0x283], 2
je 0x65c73d
call fcn.00434f34
test al, al
jne 0x65c73d
xor eax, eax
jmp 0x65c73f
mov al, 1
mov byte [ebp - 0x15], al
mov eax, dword [0x7a0e70]
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 0x65ca89
push dword fs:[eax]
mov dword fs:[eax], esp
cmp byte [ebp - 5], 0
je 0x65c9c1
mov eax, dword [0x7a0d94]
mov eax, dword [eax]
call fcn.00421b5c
test al, al
je 0x65c8da
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 0x65c988
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 0x65c971
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 0x65c926
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 0x65c938
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 0x65c971
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
jmp 0x65c980
mov eax, dword [ebp - 4]
mov esi, dword [eax + 0x48]
cmp esi, dword [ebp - 0x14]
jl 0x65c8fa
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_BringToFront_qqrv
mov eax, dword [0x7a0d94]
mov eax, dword [eax]
call fcn.00421724
mov edx, dword [ebp - 4]
mov dword [edx + 0x3f0], eax
lea edx, [ebp - 0x20]
mov eax, dword [0x7a0d94]
mov eax, dword [eax]
call fcn.00421298
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 4]
add eax, 0x3f4
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x65ca7f
mov eax, dword [0x7a0e70]
mov eax, dword [eax]
mov eax, dword [eax + 0x638]
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 0x65ca7f
mov eax, dword [0x7a0d94]
mov eax, dword [eax]
call fcn.00421b5c
test al, al
jne 0x65ca75
xor edi, edi
jmp 0x65ca6b
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 0x65ca2d
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 0x65ca33
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 0x65ca6b
xor edx, edx
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
jmp 0x65ca75
mov eax, dword [ebp - 4]
mov esi, dword [eax + 0x48]
test esi, esi
jg 0x65ca02
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 0x65ca93
cmp byte [ebp - 5], 0
je 0x65cbfb
xor eax, eax
push ebp
push 0x65cbf1
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.0065b69c
mov eax, dword [0x7a0e70]
mov eax, dword [eax]
mov edx, dword [ebp - 4]
call fcn.00769b30
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65cbfb
mov eax, dword [ebp - 4]
mov byte [eax + 0x3f9], 0
mov eax, dword [0x7a0e70]
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 0x65cc30
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret