Function at 0x47e780
Capabilities:
Log keystrokes via polling

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffbc
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 4], edx
mov ebx, eax
xor eax, eax
push ebp
push 0x47eaf9
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [sym.imp.vcl210.bpl__Vcl_Controls_TControlCanvas_]
call sub.vcl210.bpl__Vcl_Graphics_TCanvas__bctr_qqrv
mov dword [ebp - 8], eax
mov dl, 1
mov eax, dword [sym.imp.vcl210.bpl__Vcl_Graphics_TBitmap_]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0xc], eax
mov eax, dword [ebx + 0x40]
mov esi, eax
mov edx, dword [eax + 0x40]
mov dword [ebp - 0x10], edx
xor edx, edx
push ebp
push 0x47eadc
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, eax
mov eax, dword [ebp - 8]
call sub.vcl210.bpl__Vcl_Controls_TControlCanvas_SetControl_qqrp21Vcl_Controls_TControl
cmp byte [ebx + 0x45], 0
jne 0x47e7fa
cmp byte [esi + 0x1c2], 0
jne 0x47e7fa
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x2ca], 0
jne 0x47e821
mov eax, dword [ebp - 0x10]
mov edx, dword [eax + 0x7c]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
call sub.vcl210.bpl__Vcl_Graphics_TBrush_SetColor_qqr21System_Uitypes_TColor
lea edx, [ebp - 0x34]
mov eax, dword [ebx + 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea edx, [ebp - 0x34]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x5c]
movzx eax, byte [esi + 0x1d6]
cmp al, 3
jne 0x47e858
mov eax, dword [ebp - 0x10]
mov edx, dword [eax + 0x7c]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
call sub.vcl210.bpl__Vcl_Graphics_TBrush_SetColor_qqr21System_Uitypes_TColor
lea edx, [ebp - 0x34]
mov eax, dword [ebx + 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea edx, [ebp - 0x34]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x54]
jmp 0x47eabe
cmp al, 4
jne 0x47e8d0
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x10]
mov edx, dword [eax + 0x7c]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
call sub.vcl210.bpl__Vcl_Graphics_TBrush_SetColor_qqr21System_Uitypes_TColor
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov eax, dword [ebp - 0x18]
sub eax, 3
push eax
lea eax, [ebp - 0x34]
push eax
mov ebx, dword [ebp - 0x1c]
sar ebx, 1
jns 0x47e898
adc ebx, 0
mov ecx, ebx
inc ecx
mov edx, dword [ebp - 0x20]
add edx, 3
mov eax, ebx
dec eax
call sub.rtl210.bpl__System_Classes_Rect_qqriiii
lea esi, [ebp - 0x34]
lea edi, [ebp - 0x24]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
push 0xff000005
push 1
lea edx, [ebp - 0x24]
mov ecx, dword [0x4845d8]
mov eax, dword [ebp - 8]
call sub.vcl210.bpl__Vcl_Extctrls_Frame3D_qqrp20Vcl_Graphics_TCanvasr18System_Types_TRect21System_Uitypes_TColort3i
jmp 0x47eabe
mov eax, dword [ebp - 0x10]
mov edx, dword [eax + 0x74]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x40]
mov ecx, dword [eax]
call dword [ecx + 8]
cmp dword [esi + 0x1c4], 0xffffffff
jle 0x47e9c2
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x68]
test al, al
je 0x47e924
cmp byte [ebx + 0x45], 0
je 0x47e924
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x2e4], 0
je 0x47e924
mov edx, dword [esi + 0x1c4]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x2e4]
mov ecx, dword [ebp - 0xc]
call sub.vcl210.bpl__Vcl_Imglist_TCustomImageList_GetBitmap_qqrip20Vcl_Graphics_TBitmap
jmp 0x47e982
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x68]
test al, al
je 0x47e954
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x2d4], 0
je 0x47e954
mov edx, dword [esi + 0x1c4]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x2d4]
mov ecx, dword [ebp - 0xc]
call sub.vcl210.bpl__Vcl_Imglist_TCustomImageList_GetBitmap_qqrip20Vcl_Graphics_TBitmap
jmp 0x47e982
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x68]
test al, al
jne 0x47e982
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x2dc], 0
je 0x47e982
mov edx, dword [esi + 0x1c4]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x2dc]
mov ecx, dword [ebp - 0xc]
call sub.vcl210.bpl__Vcl_Imglist_TCustomImageList_GetBitmap_qqrip20Vcl_Graphics_TBitmap
push 0xc000ca
push 0
push 0
mov eax, dword [ebp - 0xc]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
call sub.vcl210.bpl__Vcl_Graphics_TCanvas_GetHandle_qqrv
push eax
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x30]
push eax
push 0
push 0
mov eax, dword [ebp - 0xc]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
call sub.vcl210.bpl__Vcl_Graphics_TCanvas_GetHandle_qqrv
push eax
call sub.gdi32.dll_BitBlt
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x2c8], 0
je 0x47e9da
lea edx, [ebp - 4]
mov eax, esi
call sub.vcl210.bpl__Vcl_Controls_TControl_GetText_qqrv
jmp 0x47e9e2
lea eax, [ebp - 4]
call sub.rtl210.bpl__System__UStrClr_qqrpv
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x2c9], 0
je 0x47ea08
mov byte [ebp - 0x13], 0
mov edi, 2
mov byte [ebp - 0x12], 0
jmp 0x47ea15
mov byte [ebp - 0x13], 2
mov edi, 1
mov byte [ebp - 0x12], 1
cmp byte [esi + 0x69], 0
je 0x47eabe
lea edx, [ebp - 0x44]
mov eax, dword [sym.imp.vcl210.bpl__Vcl_Controls_Mouse]
mov eax, dword [eax]
call sub.vcl210.bpl__Vcl_Controls_TMouse_GetCursorPos_qqrv
lea edx, [ebp - 0x44]
lea ecx, [ebp - 0x3c]
mov eax, esi
call sub.vcl210.bpl__Vcl_Controls_TControl_ScreenToClient_qqrrx19System_Types_TPoint
push dword [ebp - 0x38]
push dword [ebp - 0x3c]
lea eax, [ebp - 0x24]
push eax
call sub.user32.dll_PtInRect
cmp eax, 1
sbb ebx, ebx
inc ebx
test bl, bl
je 0x47ea65
push 1
call sub.user32.dll_GetKeyState
and ax, 0x80
cmp ax, 0x80
je 0x47ea69
xor eax, eax
jmp 0x47ea6b
mov al, 1
mov byte [ebp - 0x11], al
mov eax, dword [ebp - 0xc]
push eax
movzx eax, byte [ebp - 0x13]
push eax
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x7c]
push eax
push edi
cmp byte [esi + 0x1d6], 2
sete al
push eax
mov eax, dword [ebp - 0x10]
movzx eax, byte [eax + 0x2ca]
push eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x68]
push eax
movzx eax, byte [esi + 0x1c2]
push eax
movzx eax, byte [ebp - 0x11]
push eax
push ebx
movzx eax, byte [ebp - 0x12]
push eax
mov ecx, dword [ebp - 4]
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 8]
call fcn.0047bb60
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x47eae3
mov eax, dword [ebp - 8]
call sub.rtl210.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0xc]
call sub.rtl210.bpl__System_TObject_Free_qqrv
ret