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

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffdc
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 0x14], edx
mov dword [ebp - 0x10], edx
mov dword [ebp - 0xc], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x76eb34
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov byte [eax + 0x6e0], 0
mov eax, dword [ebp - 4]
mov byte [eax + 0x6e1], 0
mov eax, dword [ebp - 4]
call fcn.00760ec8
mov al, 2
call fcn.005fea94
mov eax, dword [ebp - 4]
mov byte [eax + 0x651], 0
mov eax, dword [ebp - 4]
mov byte [eax + 0x652], 0
mov eax, dword [ebp - 4]
mov byte [eax + 0x653], 0
mov dl, 1
mov eax, dword [ebp - 4]
call fcn.0075e334
mov dl, 1
mov eax, dword [ebp - 4]
call fcn.0075e77c
lea eax, [ebp - 0xc]
push eax
mov eax, dword [0x7a0700]
mov eax, dword [eax]
mov ecx, 0x76eb50
mov edx, 0x76eb90
call fcn.00593694
mov ecx, dword [ebp - 0xc]
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.007643cc
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x528]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x520]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x524]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
xor edx, edx
call fcn.004f8d8c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
xor edx, edx
call fcn.004f8df0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
mov dl, 1
call fcn.004f8d8c
mov eax, dword [ebp - 4]
movzx edx, byte [eax + 0x656]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
call fcn.004f8df0
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.00772a78
mov cl, 1
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.00771bd4
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0077207c
mov eax, dword [0x7a0d94]
mov eax, dword [eax]
call fcn.004243cc
test al, al
je 0x76e6d3
mov eax, dword [0x7a0fa0]
cmp dword [eax], 0
je 0x76e655
mov eax, dword [0x7a0fa0]
mov eax, dword [eax]
call sub.vcl120.bpl__Controls_TControl_BringToFront_qqrv
jmp 0x76e6d3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x384]
call fcn.0050240c
push 1
mov ecx, dword [ebp - 4]
mov dl, 1
mov eax, dword [0x6cc890]
call fcn.006ccd18
mov edx, dword [0x7a0fa0]
mov dword [edx], eax
mov eax, dword [0x7a0fa0]
mov eax, dword [eax]
mov edx, dword [eax]
call dword [edx + pe_nt_image_headers32]
mov eax, dword [0x7a0fa0]
call sub.rtl120.bpl__Sysutils_FreeAndNil_qqrpv
xor eax, eax
push ebp
push 0x76e6bb
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x438]
call fcn.004ff5a0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x76e6c5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x384]
call fcn.005024fc
xor ebx, ebx
xor ecx, ecx
mov edx, 0x76ebb8
mov eax, dword [ebp - 4]
call fcn.00771808
mov eax, dword [ebp - 4]
cmp byte [eax + 0x6d8], 0
je 0x76e6f5
mov ebx, 1
test ebx, ebx
jne 0x76e720
cmp byte [0x7a0144], 0
jne 0x76e720
mov eax, dword [ebp - 4]
call fcn.007712d0
mov ebx, eax
test ebx, ebx
je 0x76e717
mov byte [0x7a0144], 1
cmp ebx, 2
je 0x76eb19
test ebx, ebx
jne 0x76e74b
cmp byte [0x7a0144], 0
jne 0x76e74b
mov eax, dword [ebp - 4]
call fcn.00770fd8
mov ebx, eax
test ebx, ebx
je 0x76e742
mov byte [0x7a0144], 1
cmp ebx, 2
je 0x76eb19
test ebx, ebx
jne 0x76e76b
cmp byte [0x7a0144], 0
jne 0x76e76b
mov eax, dword [ebp - 4]
call fcn.00770c9c
test al, al
je 0x76e76b
mov byte [0x7a0144], 1
mov eax, dword [0x7a0d44]
cmp dword [eax], 0
je 0x76e782
mov eax, dword [0x7a0d44]
mov eax, dword [eax]
cmp byte [eax + 0x57], 0
jne 0x76e79c
cmp byte [0x7a0144], 0
jne 0x76e79c
xor ecx, ecx
mov dl, 1
mov eax, dword [ebp - 4]
call fcn.0076f504
mov byte [0x7a0144], al
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x53c]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x534]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
xor edx, edx
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
lea eax, [ebp - 0x10]
push eax
mov eax, dword [0x7a0700]
mov eax, dword [eax]
mov ecx, 0x76ebc8
mov edx, 0x76ebf4
call fcn.00593694
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov dl, 1
call sub.vcl120.bpl__Controls_TControl_SetVisible_qqro
lea eax, [ebp - 0x14]
push eax
mov eax, dword [0x7a0700]
mov eax, dword [eax]
mov ecx, 0x76ec1c
mov edx, 0x76ec70
call fcn.00593694
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x518]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov edx, dword [ebp - 0x1c]
add edx, 5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x51c]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov cl, 1
mov edx, 0x200
mov eax, dword [ebp - 4]
call fcn.00763bd0
call sub.kernel32.dll_GetTickCount
mov esi, eax
jmp 0x76e89f
push 0x64
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 eax, dword [ebp - 4]
cmp byte [eax + 0x6e0], 0
jne 0x76e8ab
call sub.kernel32.dll_GetTickCount
mov ebx, eax
sub ebx, esi
cmp ebx, 0x4e20
ja 0x76e8ab
mov eax, dword [ebp - 4]
cmp byte [eax + 0x6e3], 0
je 0x76e86f
mov eax, dword [ebp - 4]
cmp byte [eax + 0x6e0], 0
je 0x76e941
mov eax, dword [0x7a02a4]
mov eax, dword [eax]
mov esi, dword [eax + 8]
dec esi
test esi, esi
jl 0x76e8e9
inc esi
xor edi, edi
mov eax, dword [0x7a02a4]
mov eax, dword [eax]
mov edx, edi
call fcn.00578e0c
mov ebx, eax
test ebx, ebx
je 0x76e8e5
mov byte [ebx + 0x50], 0
inc edi
dec esi
jne 0x76e8cd
xor ecx, ecx
mov edx, pe_nt_image_headers32
mov eax, dword [ebp - 4]
call fcn.00763bd0
mov eax, dword [ebp - 4]
call fcn.00766104
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e334
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e77c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
xor edx, edx
call fcn.004f8d8c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
xor edx, edx
call fcn.004f8df0
mov eax, dword [0x7a06f0]
mov byte [eax], 0x10
jmp 0x76eb19
xor ecx, ecx
mov edx, 0x76ec94
mov eax, 0x76ecb4
call fcn.0041fed8
mov ebx, eax
mov eax, dword [ebp - 4]
cmp byte [eax + 0x6a8], 0
je 0x76e972
mov eax, dword [0x7a0d94]
mov eax, dword [eax]
call fcn.00425b58
test al, al
je 0x76e972
xor ebx, ebx
mov eax, dword [0x7a02a4]
mov edx, ebx
call fcn.005ff550
test al, al
jne 0x76eb19
mov eax, dword [0x7a06f0]
movzx eax, byte [eax]
sub al, 7
je 0x76e998
add al, 0xf9
sub al, 3
jae 0x76e9f0
mov eax, dword [0x7a06f0]
mov byte [eax], 4
xor ecx, ecx
mov edx, pe_nt_image_headers32
mov eax, dword [ebp - 4]
call fcn.00763bd0
mov eax, dword [ebp - 4]
call fcn.00766104
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e334
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e77c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
xor edx, edx
call fcn.004f8d8c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
xor edx, edx
call fcn.004f8df0
jmp 0x76eb19
mov eax, dword [0x7a06f0]
mov byte [eax], 7
mov byte [ebp - 5], 0
mov eax, dword [0x7a02a4]
mov eax, dword [eax]
mov esi, dword [eax + 8]
dec esi
test esi, esi
jl 0x76ea4a
inc esi
xor edi, edi
mov eax, dword [0x7a02a4]
mov eax, dword [eax]
mov edx, edi
call fcn.00578e0c
mov ebx, eax
test ebx, ebx
je 0x76ea46
cmp byte [ebx + 0x51], 0
jne 0x76ea46
cmp byte [ebx + 0x50], 0
je 0x76ea46
cmp byte [ebx + 0x52], 0
je 0x76ea46
mov eax, dword [ebx + 0x34]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x76ea46
mov byte [ebp - 5], 1
jmp 0x76ea4a
inc edi
dec esi
jne 0x76ea0e
cmp byte [ebp - 5], 0
je 0x76eac8
xor ecx, ecx
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.007643cc
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
xor edx, edx
call fcn.004f8d8c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3cc]
xor edx, edx
call fcn.004f8df0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov dl, 1
call fcn.004f8d8c
mov eax, dword [ebp - 4]
movzx edx, byte [eax + 0x656]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call fcn.004f8df0
mov eax, dword [0x7a02a4]
call fcn.00575ed8
test al, al
jne 0x76eb19
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e334
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e77c
jmp 0x76eb19
mov eax, dword [0x7a02a4]
mov eax, dword [eax]
mov esi, dword [eax + 8]
dec esi
test esi, esi
jl 0x76eaf6
inc esi
xor edi, edi
mov eax, dword [0x7a02a4]
mov eax, dword [eax]
mov edx, edi
call fcn.00578e0c
mov ebx, eax
test ebx, ebx
je 0x76eaf2
mov byte [ebx + 0x50], 0
inc edi
dec esi
jne 0x76eada
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e334
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.0075e77c
mov cl, 1
mov edx, pe_nt_image_headers32
mov eax, dword [ebp - 4]
call fcn.00763bd0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x76eb3b
lea eax, [ebp - 0x14]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret