Function at 0x501d093c
Capabilities:
Log keystrokes via polling

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffee8
push ebx
push esi
push edi
mov ebx, edx
mov esi, eax
test byte [esi + 0x1c], 0x10
je 0x501d098a
xor edx, edx
mov eax, esi
call sym.vcl120.bpl__Forms_GetParentForm_qqrp17Controls_TControlo
mov dword [ebp - 0x14], eax
cmp dword [ebp - 0x14], 0
je 0x501d098a
mov eax, dword [ebp - 0x14]
cmp dword [eax + 0x2a8], 0
je 0x501d098a
mov ecx, ebx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2a8]
mov edx, esi
mov edi, dword [eax]
call dword [edi + 0x24]
test al, al
jne 0x501d0c11
mov eax, dword [ebx]
cmp eax, 0x100
jb 0x501d09cc
cmp eax, 0x109
ja 0x501d09cc
mov dl, 1
mov eax, esi
call sym.vcl120.bpl__Forms_GetParentForm_qqrp17Controls_TControlo
mov dword [ebp - 0x14], eax
cmp dword [ebp - 0x14], 0
je 0x501d0c08
mov ecx, ebx
mov edx, esi
mov eax, dword [ebp - 0x14]
mov edi, dword [eax]
call dword [edi + 0x104]
test al, al
jne 0x501d0c11
jmp 0x501d0c08
mov eax, dword [ebx]
cmp eax, 0x200
jb 0x501d0bf1
cmp eax, 0x20a
ja 0x501d0bf1
test byte [esi + 0x50], 0x80
jne 0x501d09fe
sub eax, 0x203
je 0x501d09fb
sub eax, 3
je 0x501d09fb
sub eax, 3
jne 0x501d09fe
sub dword [ebx], 2
mov eax, dword [ebx]
add eax, 0xfffffe00
cmp eax, 7
ja case.0x501d0a0e.516
jmp dword [eax*4 + 0x501d0a15]
mov ecx, ebx
mov eax, dword [sym.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
mov edx, esi
call sym.vcl120.bpl__Forms_TApplication_HintMouseMessage_qqrp17Controls_TControlr17Messages_TMessage
jmp 0x501d0c08
test byte [esi + 0x52], 8
je 0x501d0c08
movzx eax, word [0x501d0c18]
and ax, word [esi + 0x54]
movzx edx, word [0x501d0c1c]
cmp dx, ax
jne 0x501d0c08
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
call sym.vcl120.bpl__Controls_TMouse_GetIsDragging_qqrv
test al, al
jne 0x501d0c08
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
call sym.vcl120.bpl__Controls_TMouse_CreatePanningWindow_qqrv
mov byte [ebp - 0x15], 0
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
mov edi, dword [eax + 0x28]
test edi, edi
je 0x501d0b18
mov eax, esi
mov edx, dword [sym.vcl120.bpl__Controls_TWinControl_]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x501d0ac6
mov eax, esi
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
mov edx, eax
mov eax, edi
mov ecx, esi
mov edi, dword [eax]
call dword [edi + 0xe4]
mov byte [ebp - 0x15], al
jmp 0x501d0b18
cmp dword [esi + 0x30], 0
je 0x501d0ae7
mov eax, dword [esi + 0x30]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
mov edx, eax
mov eax, edi
mov ecx, esi
mov edi, dword [eax]
call dword [edi + 0xe4]
mov byte [ebp - 0x15], al
jmp 0x501d0b18
xor edx, edx
mov eax, esi
call sym.vcl120.bpl__Forms_GetParentForm_qqrp17Controls_TControlo
mov dword [ebp - 0x14], eax
cmp dword [ebp - 0x14], 0
je 0x501d0b18
mov eax, dword [ebp - 0x14]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
mov edx, eax
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
mov eax, dword [eax + 0x28]
mov ecx, esi
mov edi, dword [eax]
call dword [edi + 0xe4]
mov byte [ebp - 0x15], al
cmp byte [ebp - 0x15], 0
je 0x501d0b36
mov dword [ebx + 0xc], 1
mov eax, dword [sym.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sym.vcl120.bpl__Forms_TApplication_HideHint_qqrv
jmp 0x501d0c08
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
cmp dword [eax + 0x28], 0
je 0x501d0c08
xor edx, edx
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
call sym.vcl120.bpl__Controls_TMouse_SetPanningWindow_qqrpx29Controls_TCustomPanningWindow
jmp 0x501d0c08
cmp byte [esi + 0x5d], 1
jne 0x501d0b6c
mov eax, esi
mov si, 0xffed
call sub.rtl120.bpl__System__CallDynaInst_qqrv
jmp 0x501d0c11
or word [esi + 0x54], 1
jmp 0x501d0c08
and word [esi + 0x54], 0xfffe
jmp 0x501d0c08
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
cmp byte [eax + 0x20], 0
je 0x501d0c08
mov eax, dword [sym.vcl120.bpl__Controls_Mouse]
cmp dword [eax + 0x1c], 0
je 0x501d0c08
mov eax, dword [ebx]
mov edx, dword [sym.vcl120.bpl__Controls_Mouse]
cmp eax, dword [edx + 0x1c]
jne 0x501d0c08
lea eax, [ebp - 0x115]
push eax
call sub.user32.dll_GetKeyboardState
mov eax, dword [ebx]
mov dword [ebp - 0x10], eax
lea eax, [ebp - 0x115]
call sym.vcl120.bpl__Forms_KeyboardStateToShiftState_qqrpxuc
mov byte [ebp - 0xc], al
movzx eax, word [ebx + 4]
mov word [ebp - 0xa], ax
mov edi, dword [ebx + 8]
mov edx, edi
shr edx, 0x10
mov eax, edi
and eax, 0xffff
call sub.rtl120.bpl__Types_SmallPoint_qqrii
mov dword [ebp - 8], eax
lea edx, [ebp - 0x10]
mov eax, esi
mov si, 0xffc9
call sub.rtl120.bpl__System__CallDynaInst_qqrv
jmp 0x501d0c11
cmp eax, 0xb00b
jne 0x501d0c08
mov edx, dword [ebx + 8]
push edx
mov ecx, dword [ebx + 4]
mov edx, eax
mov eax, esi
call sym.vcl120.bpl__Controls_TControl_SendDockNotification_qqruiuiui
mov edx, ebx
mov eax, esi
mov ecx, dword [eax]
call dword [ecx - 0x14]
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret