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

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0xb
push 0
push 0
dec ecx
jne 0x50141494
push ecx
push ebx
push esi
push edi
mov ebx, edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x50141881
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, ebx
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TWinControl_KeyPress_qqrrb
mov eax, dword [ebp - 4]
cmp byte [eax + 0x2c8], 0
je 0x50141837
mov eax, dword [ebp - 4]
movzx eax, byte [eax + 0x2d6]
sub al, 2
jae 0x501414f7
lea edx, [ebp - 0x34]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x34]
mov eax, dword [ebp - 4]
add eax, 0x2d0
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x5014152d
call sub.kernel32.dll_GetTickCount
mov edx, dword [ebp - 4]
sub eax, dword [edx + 0x2cc]
mov edx, dword [ebp - 4]
cmp eax, dword [edx + 0x2f4]
jb 0x5014151f
mov eax, dword [ebp - 4]
add eax, 0x2d0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
call sub.kernel32.dll_GetTickCount
mov edx, dword [ebp - 4]
mov dword [edx + 0x2cc], eax
movzx eax, word [ebx]
sub ax, 8
je 0x50141579
dec ax
je 0x5014154a
sub ax, 0x12
jne 0x50141714
jmp 0x50141837
mov eax, dword [ebp - 4]
cmp byte [eax + 0x2c9], 0
je 0x50141837
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Stdctrls_TCustomCombo_GetDroppedDown_qqrv
test al, al
je 0x50141837
xor edx, edx
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Stdctrls_TCustomCombo_SetDroppedDown_qqro
jmp 0x50141837
push ebp
lea edx, [ebp - 0x14]
lea eax, [ebp - 0x10]
call fcn.501413a4
pop ecx
test al, al
je 0x5014159c
push ebp
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 0x10]
call fcn.501413e8
pop ecx
jmp 0x501416fe
mov eax, dword [ebp - 4]
movzx eax, byte [eax + 0x2d6]
sub al, 2
jae 0x501415ce
lea edx, [ebp - 0x38]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x38]
mov dword [ebp - 0x3c], eax
mov eax, dword [ebp - 0x3c]
test eax, eax
je 0x501415c7
sub eax, 4
mov eax, dword [eax]
test eax, eax
setg al
jmp 0x501415d0
xor eax, eax
test al, al
je 0x501416b6
lea edx, [ebp - 0xc]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TControl_GetText_qqrv
mov esi, dword [ebp - 0x10]
jmp 0x501415e9
dec esi
mov edx, esi
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Sysutils_ByteType_qqrx20System_UnicodeStringi
cmp al, 2
je 0x501415e8
lea eax, [ebp - 8]
push eax
mov ecx, esi
dec ecx
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
push 0
push 0xffffffffffffffff
push 0x14e
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
call sub.user32.dll_SendMessageW
lea eax, [ebp - 0x44]
push eax
mov edx, dword [ebp - 0x14]
inc edx
mov ecx, 0x7fffffff
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov ecx, dword [ebp - 0x44]
lea eax, [ebp - 0x40]
mov edx, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x40]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
mov edi, esi
dec edi
movzx edi, di
mov eax, edi
shl edi, 0x10
or eax, edi
push eax
push 0
push 0x142
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
call sub.user32.dll_SendMessageW
lea edx, [ebp - 0x48]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 4]
add eax, 0x2d0
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x501416fe
mov eax, dword [ebp - 4]
mov esi, dword [eax + 0x2d0]
test esi, esi
je 0x501416a2
sub esi, 4
mov esi, dword [esi]
mov eax, dword [ebp - 4]
add eax, 0x2d0
mov ecx, 1
mov edx, esi
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x2d0]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x2d0]
call sub.rtl120.bpl__Sysutils_ByteType_qqrx20System_UnicodeStringi
cmp al, 2
je 0x50141690
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x2d0]
test eax, eax
je 0x501416ea
sub eax, 4
mov eax, dword [eax]
mov edx, dword [ebp - 4]
add edx, 0x2d0
mov ecx, 1
xchg edx, eax
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
mov word [ebx], 0
mov eax, dword [ebp - 4]
mov si, 0xffb0
call sub.rtl120.bpl__System__CallDynaInst_qqrv
jmp 0x50141837
mov eax, dword [ebp - 4]
cmp byte [eax + 0x2c9], 0
je 0x50141736
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Stdctrls_TCustomCombo_GetDroppedDown_qqrv
test al, al
jne 0x50141736
mov dl, 1
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Stdctrls_TCustomCombo_SetDroppedDown_qqro
push ebp
lea edx, [ebp - 0x14]
lea eax, [ebp - 0x10]
call fcn.501413a4
pop ecx
test al, al
je 0x5014177e
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x2d0]
mov ecx, dword [ebp - 0x10]
mov edx, 1
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x4c]
push eax
lea eax, [ebp - 0x50]
movzx edx, word [ebx]
call sub.rtl120.bpl__System__UStrFromWChar_qqrr20System_UnicodeStringb
mov ecx, dword [ebp - 0x50]
lea eax, [ebp - 0xc]
pop edx
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
jmp 0x5014179d
lea eax, [ebp - 0x54]
movzx edx, word [ebx]
call sub.rtl120.bpl__System__UStrFromWChar_qqrr20System_UnicodeStringb
mov ecx, dword [ebp - 0x54]
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x2d0]
lea eax, [ebp - 0xc]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
movzx eax, word [ebx]
cmp ax, 0xd800
jb 0x501417ac
cmp ax, 0xdfff
jbe 0x501417b0
xor eax, eax
jmp 0x501417b2
mov al, 1
test al, al
je 0x50141823
push 0
push 0
push 0
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
lea eax, [ebp - 0x30]
push eax
call sub.user32.dll_PeekMessageW
test eax, eax
je 0x50141837
cmp dword [ebp - 0x2c], 0x102
jne 0x50141837
lea eax, [ebp - 0x5c]
movzx edx, word [ebp - 0x28]
call sub.rtl120.bpl__System__UStrFromWChar_qqrr20System_UnicodeStringb
mov ecx, dword [ebp - 0x5c]
lea eax, [ebp - 0x58]
mov edx, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x58]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Stdctrls_TCustomComboBox_SelectItem_qqrx20System_UnicodeString
test al, al
je 0x50141837
push 1
push 0
push 0
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
lea eax, [ebp - 0x30]
push eax
call sub.user32.dll_PeekMessageW
mov word [ebx], 0
jmp 0x50141837
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Stdctrls_TCustomComboBox_SelectItem_qqrx20System_UnicodeString
test al, al
je 0x50141837
mov word [ebx], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x50141888
lea eax, [ebp - 0x5c]
mov edx, 5
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x48]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x44]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x38]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret