Function at 0x46a5c0
Capabilities:
Log keystrokes via polling

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffe28
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 0x1c8], edx
mov ebx, eax
xor eax, eax
push ebp
push 0x46a937
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, ebx
call fcn.0040272c
mov dword [ebp - 0xc], eax
mov eax, ebx
call fcn.00402778
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 - 0x1c], eax
mov eax, dword [ebp - 0x1c]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0x48]
mov edx, 0xff00ff
call sub.vcl210.bpl__Vcl_Graphics_TBrush_SetColor_qqr21System_Uitypes_TColor
cmp dword [ebp - 8], 0
je 0x46a633
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x14]
push eax
mov eax, dword [ebp - 8]
push eax
call sub.comctl32.dll_ImageList_GetIconSize
mov dword [ebp - 0x1bc], 0x3c
lea eax, [ebp - 0x1bc]
push eax
push ebx
call sub.user32.dll_GetWindowInfo
lea edx, [ebp - 0x1c4]
mov eax, dword [sym.imp.vcl210.bpl__Vcl_Controls_Mouse]
mov eax, dword [eax]
call sub.vcl210.bpl__Vcl_Controls_TMouse_GetCursorPos_qqrv
mov eax, dword [ebp - 0x1c4]
sub eax, dword [ebp - 0x1b8]
mov dword [ebp - 0x28], eax
lea edx, [ebp - 0x1c4]
mov eax, dword [sym.imp.vcl210.bpl__Vcl_Controls_Mouse]
mov eax, dword [eax]
call sub.vcl210.bpl__Vcl_Controls_TMouse_GetCursorPos_qqrv
mov eax, dword [ebp - 0x1c0]
sub eax, dword [ebp - 0x1b4]
mov dword [ebp - 0x24], eax
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 - 4], eax
push ebx
call sub.user32.dll_GetWindowDC
xor edx, edx
push ebp
push 0x46a917
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, eax
mov eax, dword [ebp - 4]
call sub.vcl210.bpl__Vcl_Graphics_TCanvas_SetHandle_qqrp5HDC__
mov eax, dword [ebp - 0xc]
dec eax
test eax, eax
jl 0x46a88c
inc eax
mov dword [ebp - 0x30], eax
mov dword [ebp - 0x10], 0
lea eax, [ebp - 0x60]
xor ecx, ecx
mov edx, 0x30
call sub.rtl210.bpl__System__FillChar_qqrpvic
mov dword [ebp - 0x60], 0x27
lea eax, [ebp - 0x180]
mov dword [ebp - 0x58], eax
mov dword [ebp - 0x50], 0x7f
lea ecx, [ebp - 0x60]
mov edx, dword [ebp - 0x10]
mov eax, ebx
call fcn.00402740
lea ecx, [ebp - 0x70]
mov edx, dword [ebp - 0x10]
mov eax, ebx
call fcn.0040275c
mov eax, dword [ebp - 0x4c]
and eax, 0x800
cmp eax, 0x800
jne 0x46a752
movzx ecx, word [ebp - 0x18]
movzx edx, word [ebp - 0x14]
mov eax, dword [ebp - 0x1c]
call fcn.00468508
push 0
push 0
push 0
mov eax, dword [ebp - 0x1c]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
call sub.vcl210.bpl__Vcl_Graphics_TCanvas_GetHandle_qqrv
push eax
mov eax, dword [ebp - 0x44]
push eax
mov eax, dword [ebp - 8]
push eax
call sub.comctl32.dll_ImageList_Draw
jmp 0x46a75e
xor ecx, ecx
xor edx, edx
mov eax, dword [ebp - 0x1c]
call fcn.00468508
mov eax, dword [ebp - 0x4c]
mov edx, eax
and edx, 1
dec edx
jne 0x46a76f
mov byte [ebp - 0x1d], 1
jmp 0x46a781
and eax, 2
cmp eax, 2
jne 0x46a77d
mov byte [ebp - 0x1d], 2
jmp 0x46a781
mov byte [ebp - 0x1d], 0
lea esi, [ebp - 0x70]
lea edi, [ebp - 0x80]
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 0
push 0xfffffffffffffff8
lea eax, [ebp - 0x80]
push eax
call sub.user32.dll_InflateRect
push 1
call sub.user32.dll_GetKeyState
and ax, 0x80
cmp ax, 0x80
jne 0x46a7bc
push dword [ebp - 0x24]
push dword [ebp - 0x28]
lea eax, [ebp - 0x80]
push eax
call sub.user32.dll_PtInRect
test eax, eax
jne 0x46a7c0
xor eax, eax
jmp 0x46a7c2
mov al, 1
mov byte [ebp - 0x29], al
mov eax, ebx
call sub.vcl210.bpl__Vcl_Controls_FindControl_qqrp6HWND__
test eax, eax
jne 0x46a7df
push ebx
call sub.user32.dll_GetParent
mov esi, eax
mov eax, esi
call sub.vcl210.bpl__Vcl_Controls_FindControl_qqrp6HWND__
test eax, eax
je 0x46a7f1
mov edx, dword [eax + 0x74]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x40]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x30]
test eax, eax
jle 0x46a804
mov esi, 1
jmp 0x46a806
xor esi, esi
push esi
lea eax, [ebp - 0x1c8]
lea edx, [ebp - 0x180]
mov ecx, 0x80
call sub.rtl210.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov eax, dword [ebp - 0x1c8]
push eax
movzx eax, byte [ebp - 0x1d]
push eax
cmp dword [ebp - 0x10], 0
setg al
push eax
push 1
movzx eax, byte [ebp - 0x29]
push eax
push 0
mov ecx, dword [ebp - 0x1c]
lea edx, [ebp - 0x70]
mov eax, dword [ebp - 4]
call fcn.00469fac
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
lea eax, [ebp - 0x1d8]
push eax
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x30]
mov ecx, eax
xor edx, edx
xor eax, eax
call sub.rtl210.bpl__System_Classes_Rect_qqriiii
lea eax, [ebp - 0x1d8]
push eax
mov eax, dword [ebp - 0x1c]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x54]
inc dword [ebp - 0x10]
dec dword [ebp - 0x30]
jne 0x46a6d0
lea eax, [ebp - 0x80]
push eax
push ebx
call sub.user32.dll_GetClientRect
xor edx, edx
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
cmp dword [ebp - 0xc], 0
jle 0x46a8cc
mov eax, dword [ebp - 0x64]
push eax
lea eax, [ebp - 0x1d8]
push eax
mov ecx, dword [ebp - 0x78]
mov edx, dword [ebp - 0x6c]
mov eax, dword [ebp - 0x68]
call sub.rtl210.bpl__System_Classes_Rect_qqriiii
lea esi, [ebp - 0x1d8]
lea edi, [ebp - 0x80]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
mov eax, dword [ebp - 0x78]
sub eax, dword [ebp - 0x80]
cmp eax, 2
jle 0x46a8f9
push 0
push 0
push 2
cmp dword [ebp - 0xc], 0
setg al
push eax
push 0
push 0
push 0
mov ecx, dword [ebp - 0x1c]
lea edx, [ebp - 0x80]
mov eax, dword [ebp - 4]
call fcn.00469fac
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x46a91e
mov eax, dword [ebp - 4]
call sub.rtl210.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x1c]
call sub.rtl210.bpl__System_TObject_Free_qqrv
ret