Function at 0x46d274
Capabilities:
Log keystrokes via polling

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffc8
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 0x38], edx
mov esi, eax
xor eax, eax
push ebp
push 0x46d520
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 - 4], eax
mov ebx, dword [esi + 0x40]
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 - 8], eax
xor eax, eax
push ebp
push 0x46d503
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [esi + 0x40]
mov eax, dword [ebp - 4]
call sub.vcl210.bpl__Vcl_Controls_TControlCanvas_SetControl_qqrp21Vcl_Controls_TControl
mov edx, dword [ebx + 0x74]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x40]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, ebx
call sub.vcl210.bpl__Vcl_Buttons_TSpeedButton_GetGlyph_qqrv
test eax, eax
je 0x46d447
mov eax, ebx
call sub.vcl210.bpl__Vcl_Buttons_TSpeedButton_GetGlyph_qqrv
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
mov eax, ebx
call sub.vcl210.bpl__Vcl_Buttons_TSpeedButton_GetGlyph_qqrv
mov edx, dword [eax]
call dword [edx + 0x30]
push eax
mov eax, ebx
call sub.vcl210.bpl__Vcl_Buttons_TSpeedButton_GetNumGlyphs_qqrv
and eax, 0x7f
mov edx, eax
pop eax
mov ecx, edx
cdq
idiv ecx
mov edx, eax
mov eax, dword [ebp - 8]
pop ecx
call fcn.00468508
xor eax, eax
mov dword [ebp - 0xc], eax
mov eax, ebx
call sub.vcl210.bpl__Vcl_Buttons_TSpeedButton_GetNumGlyphs_qqrv
and eax, 0x7f
mov dword [ebp - 0x10], eax
mov eax, ebx
mov edx, dword [eax]
call dword [edx + 0x68]
test al, al
jne 0x46d34c
cmp dword [ebp - 0x10], 1
jle 0x46d34c
mov dword [ebp - 0xc], 1
jmp 0x46d377
cmp byte [esi + 0x44], 0
je 0x46d361
cmp dword [ebp - 0x10], 2
jle 0x46d361
mov dword [ebp - 0xc], 2
jmp 0x46d377
cmp byte [ebx + 0x1c8], 0
je 0x46d377
cmp dword [ebp - 0x10], 3
jle 0x46d377
mov dword [ebp - 0xc], 3
mov eax, dword [esi + 0x40]
mov eax, dword [eax + 0x40]
mov eax, dword [eax + 0x1d0]
call sub.vcl210.bpl__Vcl_Graphics_TBrush_GetColor_qqrv
push eax
mov eax, dword [ebp - 8]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0x48]
pop edx
call sub.vcl210.bpl__Vcl_Graphics_TBrush_SetColor_qqr21System_Uitypes_TColor
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
lea eax, [ebp - 0x24]
push eax
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x30]
mov edx, dword [ebp - 0xc]
inc edx
imul edx
push eax
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x30]
imul dword [ebp - 0xc]
xor edx, edx
pop ecx
call sub.rtl210.bpl__System_Classes_Rect_qqriiii
lea eax, [ebp - 0x24]
push eax
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x30]
imul dword [ebp - 0xc]
push eax
mov eax, ebx
call sub.vcl210.bpl__Vcl_Buttons_TSpeedButton_GetGlyph_qqrv
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
xor ecx, ecx
pop edx
mov edi, dword [eax]
call dword [edi + 0x18]
push eax
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
lea eax, [ebp - 0x34]
push eax
mov eax, dword [ebp - 8]
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 - 0x34]
push eax
mov eax, ebx
call sub.vcl210.bpl__Vcl_Buttons_TSpeedButton_GetGlyph_qqrv
push eax
mov eax, dword [ebp - 8]
call sub.vcl210.bpl__Vcl_Graphics_TBitmap_GetCanvas_qqrv
pop ecx
pop edx
mov edi, dword [eax]
call dword [edi + 0x3c]
mov eax, ebx
mov edx, dword [eax]
call dword [edx + 0x68]
test al, al
jne 0x46d447
cmp dword [ebp - 0x10], 1
jne 0x46d447
lea eax, [ebp - 8]
mov edx, 0x14
call fcn.004683b0
cmp byte [esi + 0x45], 0
je 0x46d45e
push 1
call sub.user32.dll_GetKeyState
and ax, 0x80
cmp ax, 0x80
je 0x46d462
xor eax, eax
jmp 0x46d464
mov al, 1
mov byte [ebp - 0x11], al
mov eax, dword [ebp - 8]
push eax
movzx eax, byte [ebx + 0x1cb]
push eax
mov eax, dword [esi + 0x40]
mov eax, dword [eax + 0x40]
mov eax, dword [eax + 0x1d0]
call sub.vcl210.bpl__Vcl_Graphics_TBrush_GetColor_qqrv
push eax
mov eax, dword [ebx + 0x1cc]
push eax
push 0
movzx eax, byte [ebx + 0x1d8]
push eax
mov eax, ebx
mov edx, dword [eax]
call dword [edx + 0x68]
push eax
movzx eax, byte [ebx + 0x1c8]
push eax
cmp byte [ebp - 0x11], 0
jne 0x46d4b6
cmp byte [esi + 0x58], 0
jne 0x46d4b6
xor eax, eax
jmp 0x46d4b8
mov al, 1
push eax
movzx eax, byte [esi + 0x45]
push eax
push 1
lea edx, [ebp - 0x24]
mov eax, dword [esi + 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x60]
lea eax, [ebp - 0x24]
push eax
lea edx, [ebp - 0x38]
mov eax, ebx
call sub.vcl210.bpl__Vcl_Controls_TControl_GetText_qqrv
mov ecx, dword [ebp - 0x38]
mov eax, dword [ebp - 4]
pop edx
call fcn.00469c2c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x46d50a
mov eax, dword [ebp - 4]
call sub.rtl210.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 8]
call sub.rtl210.bpl__System_TObject_Free_qqrv
ret