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

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffc0
push ebx
push esi
push edi
mov ebx, ecx
mov byte [ebp - 1], dl
mov esi, eax
test ebx, ebx
jbe 0x6dfbde
call sub.kernel32.dll_GetTickCount
mov dword [ebp - 0xc], eax
mov eax, 0x3e8
call fcn.00410dd8
call sub.kernel32.dll_GetTickCount
sub eax, dword [ebp - 0xc]
cmp ebx, eax
ja 0x6dfbc8
mov dword [ebp - 8], 0xff
mov ebx, 4
mov edi, 0x1f4
call sub.kernel32.dll_GetTickCount
mov dword [ebp - 0xc], eax
lea eax, [ebp - 0x40]
mov edx, 0x24
call fcn.00402518
mov dword [ebp - 0x40], 0x24
lea eax, [ebp - 0x40]
push eax
push 5
call sub.shell32.dll_SHAppBarMessage
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_GetMonitor_qqrv
lea edx, [ebp - 0x1c]
call sub.vcl120.bpl__Forms_TMonitor_GetWorkareaRect_qqrv
lea eax, [ebp - 0x30]
push eax
lea eax, [ebp - 0x1c]
push eax
lea eax, [ebp - 0x1c]
push eax
call sub.user32.dll_SubtractRect
xor eax, eax
push ebp
push 0x6dfdc5
push dword fs:[eax]
mov dword fs:[eax], esp
xor edx, edx
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x64]
cmp byte [ebp - 1], 0
je 0x6dfd9a
mov dl, 1
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetAlphaBlend_qqrxo
xor edx, edx
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetAlphaBlendValue_qqrxuc
mov dl, 1
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetVisible_qqro
mov edx, dword [ebp - 0x14]
sub edx, dword [ebp - 0x1c]
sub edx, dword [esi + 0x48]
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetLeft_qqri
mov edx, dword [ebp - 0x10]
sub edx, dword [ebp - 0x18]
sub edx, dword [esi + 0x4c]
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetTop_qqri
mov eax, dword [esi + 0x378]
mov eax, dword [eax + 0x50]
cmp byte [eax + 0x11], 0
je 0x6dfd3b
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_GetLeft_qqrv
mov edx, eax
mov eax, dword [esi + 0x378]
mov eax, dword [eax + 0x50]
add edx, dword [eax + 0x18]
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetLeft_qqri
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_GetTop_qqrv
mov edx, eax
mov eax, dword [esi + 0x378]
mov eax, dword [eax + 0x50]
add edx, dword [eax + 0x20]
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetTop_qqri
jmp 0x6dfd3b
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
push 3
call sub.kernel32.dll_Sleep_1
mov edx, ebx
add dl, byte [esi + 0x331]
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetAlphaBlendValue_qqrxuc
movzx eax, byte [esi + 0x331]
mov edx, dword [ebp - 8]
sub edx, eax
cmp ebx, edx
jle 0x6dfd1d
movzx eax, byte [esi + 0x331]
mov ebx, dword [ebp - 8]
sub ebx, eax
cmp edi, 0xffffffff
je 0x6dfd3b
call sub.kernel32.dll_GetTickCount
sub eax, dword [ebp - 0xc]
cmp edi, eax
ja 0x6dfd3b
movzx edx, byte [ebp - 8]
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetAlphaBlendValue_qqrxuc
jmp 0x6dfdac
movzx eax, byte [esi + 0x331]
cmp eax, dword [ebp - 8]
jl 0x6dfcdf
jmp 0x6dfdac
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
push 3
call sub.kernel32.dll_Sleep_1
movzx edx, byte [esi + 0x331]
sub dl, bl
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetAlphaBlendValue_qqrxuc
movzx eax, byte [esi + 0x331]
cmp ebx, eax
jle 0x6dfd7e
movzx ebx, byte [esi + 0x331]
cmp edi, 0xffffffff
je 0x6dfd9a
call sub.kernel32.dll_GetTickCount
sub eax, dword [ebp - 0xc]
cmp edi, eax
ja 0x6dfd9a
xor edx, edx
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetAlphaBlendValue_qqrxuc
jmp 0x6dfda3
cmp byte [esi + 0x331], 0
ja 0x6dfd49
xor edx, edx
mov eax, esi
call sub.vcl120.bpl__Forms_TCustomForm_SetVisible_qqro
cmp byte [ebp - 1], 0
je 0x6dfdbb
mov dl, 1
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x64]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6dfdcf
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret