Function at 0x545ef0
Capabilities:
Log keystrokes via polling

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffff90
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x50], ecx
mov dword [ebp - 0x28], ecx
mov dword [ebp - 0xc], edx
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x546533
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 8]
call sub.vcl60.bpl__Controls_TControl_CMHintShow_qqrr17Messages_TMessage
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0xc], 0
jne 0x546515
lea eax, [ebp - 0x14]
push eax
mov eax, dword [ebp - 8]
mov ecx, dword [eax + 0x278]
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x274]
mov eax, dword [ebp - 8]
call sub.vcl60.bpl__Grids_TCustomGrid_MouseCoord_qqrii
mov eax, dword [ebp - 8]
movzx eax, byte [eax + 0x2cf]
cmp eax, dword [ebp - 0x14]
jg 0x546515
cmp dword [ebp - 0x10], 0
jl 0x546515
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_RawToDataColumn_qqri
mov edx, eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x304]
call sym.SDERPServer.exe__Dbgrideh_TDBGridColumnsEh_GetColumn_qqri
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 8]
movzx eax, byte [eax + 0x2ce]
dec eax
cmp eax, dword [ebp - 0x10]
jne 0x546002
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
cmp dword [eax + 0x1c], 0
je 0x546002
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_RawToDataColumn_qqri
mov edx, eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x304]
call sym.SDERPServer.exe__Dbgrideh_TDBGridColumnsEh_GetColumn_qqri
mov eax, dword [eax + 0x1c]
mov eax, dword [eax + 0x1c]
lea edx, [ebp - 0x50]
call sub.vcl60.bpl__Controls_GetShortHint_qqrx17System_AnsiString
mov edx, dword [ebp - 0x50]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 8]
add eax, 0x38
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
lea eax, [ebp - 0x60]
push eax
mov ecx, dword [ebp - 0x10]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_CellRect_qqrii
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 8]
lea esi, [ebp - 0x60]
lea edi, [eax + 0x18]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
jmp 0x546515
mov eax, dword [ebp - 8]
movzx eax, byte [eax + 0x2ce]
dec eax
cmp eax, dword [ebp - 0x10]
jne 0x546021
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
call sym.SDERPServer.exe__Dbgrideh_TColumnTitleEh_GetToolTips_qqrv
test al, al
jne 0x546074
mov eax, dword [ebp - 8]
movzx eax, byte [eax + 0x2ce]
cmp eax, dword [ebp - 0x10]
jg 0x546515
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_DataRowCount_qqrv
mov edx, dword [ebp - 8]
movzx edx, byte [edx + 0x2ce]
add eax, edx
cmp eax, dword [ebp - 0x10]
jle 0x546515
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x2dc]
cmp byte [eax + 0x15], 0
je 0x546515
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetToolTips_qqrv
test al, al
je 0x546515
push 0x11
call sub.user32.dll_GetKeyState
test ax, ax
jl 0x546515
lea eax, [ebp - 0x4c]
push eax
mov ecx, dword [ebp - 0x10]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_CellRect_qqrii
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetWidth_qqrv
add eax, dword [ebp - 0x4c]
mov dword [ebp - 0x24], eax
mov eax, dword [ebp - 8]
movzx eax, byte [eax + 0x2ce]
dec eax
cmp eax, dword [ebp - 0x10]
jne 0x5461f5
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
call sym.SDERPServer.exe__Dbgrideh_TColumnTitleEh_GetSortMarkingWidth_qqrv
cmp eax, 2
jle 0x5460ea
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
call sym.SDERPServer.exe__Dbgrideh_TColumnTitleEh_GetSortMarkingWidth_qqrv
sub eax, 2
sub dword [ebp - 0x44], eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
call sym.SDERPServer.exe__Dbgrideh_TColumnTitleEh_GetSortMarkingWidth_qqrv
sub eax, 2
sub dword [ebp - 0x24], eax
mov eax, dword [ebp - 8]
cmp byte [eax + 0x448], 1
jne 0x546151
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_RawToDataColumn_qqri
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x464]
mov eax, dword [edx + eax*8]
mov edx, dword [eax + 0x10]
lea eax, [ebp - 0x28]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 8]
movzx eax, byte [eax + 0x2cf]
mov edx, dword [ebp - 0x14]
sub edx, eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x464]
mov eax, dword [eax + edx*8]
mov edx, dword [ebp - 0x40]
sub edx, dword [eax + 0x14]
inc edx
mov dword [ebp - 0x48], edx
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x278]
cmp eax, dword [ebp - 0x48]
jl 0x546515
jmp 0x54615f
lea edx, [ebp - 0x28]
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
call sym.SDERPServer.exe__Dbgrideh_TColumnTitleEh_GetCaption_qqrv
mov eax, dword [ebp - 8]
cmp byte [eax + 0x448], 1
je 0x546187
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_ReadTitleHeight_qqrv
test eax, eax
jne 0x546187
mov eax, dword [ebp - 8]
call sym.SDERPServer.exe__Dbgrideh_TCustomDBGridEh_ReadTitleLines_qqrv
test eax, eax
jne 0x546187
xor eax, eax
jmp 0x546189
mov al, 1
mov byte [ebp - 0x29], al
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
call sym.SDERPServer.exe__Dbgrideh_TColumnTitleEh_GetAlignment_qqrv
mov byte [ebp - 0x2b], al
mov eax, dword [ebp - 8]
cmp dword [eax + 0x3b4], 0
jne 0x5461bb
mov dl, 1
mov eax, dword [sym.imp.vcl60.bpl__Graphics_TFont_]
call sub.vcl60.bpl__Graphics_TFont__bctr_qqrv
mov edx, dword [ebp - 8]
mov dword [edx + 0x3b4], eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x1c]
call sym.SDERPServer.exe__Dbgrideh_TColumnTitleEh_GetFont_qqrv
mov edx, eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x3b4]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x3b4]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x208]
mov eax, dword [eax + 0xc]
mov ecx, dword [eax]
call dword [ecx + 8]
jmp 0x54637e
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x2dc]
mov edx, dword [eax]
call dword [edx + 0x28]
mov dword [ebp - 0x1c], eax
xor eax, eax
push ebp
push 0x546377
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
movzx eax, byte [eax + 0x2ce]
mov edx, dword [ebp - 0x10]
sub edx, eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x2dc]
mov ecx, dword [eax]
call dword [ecx + 0x48]
lea eax, [ebp - 0x28]
call sub.rtl60.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 0x18]
cmp byte [eax + 0xf0], 0
je 0x546278
mov eax, dword [ebp - 0x18]
call fcn.00529b9c
test al, al
je 0x546278
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetWidth_qqrv
add eax, dword [ebp - 0x4c]
mov edx, dword [ebp - 8]
sub eax, dword [edx + 0x498]
mov dword [ebp - 0x24], eax
mov eax, dword [ebp - 0x24]
cmp eax, dword [ebp - 0x44]
jge 0x546286
mov eax, dword [ebp - 0x24]
mov dword [ebp - 0x44], eax
jmp 0x546286
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetWidth_qqrv
add eax, dword [ebp - 0x4c]
mov dword [ebp - 0x24], eax
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetField_qqrv
test eax, eax
je 0x54629d
lea edx, [ebp - 0x28]
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_DisplayText_qqrv
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetAlignment_qqrv
mov byte [ebp - 0x2b], al
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetWordWrap_qqrv
test al, al
je 0x5462c0
mov eax, dword [ebp - 8]
cmp byte [eax + 0x472], 0
jne 0x5462c4
xor eax, eax
jmp 0x5462c6
mov al, 1
mov byte [ebp - 0x29], al
mov eax, dword [ebp - 8]
cmp dword [eax + 0x3b4], 0
jne 0x5462ea
mov dl, 1
mov eax, dword [sym.imp.vcl60.bpl__Graphics_TFont_]
call sub.vcl60.bpl__Graphics_TFont__bctr_qqrv
mov edx, dword [ebp - 8]
mov dword [edx + 0x3b4], eax
mov eax, dword [ebp - 0x18]
call sym.SDERPServer.exe__Dbgrideh_TJxlColumn_GetFont_qqrv
mov edx, eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x3b4]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x208]
mov eax, dword [eax + 0x14]
call sub.vcl60.bpl__Graphics_TBrush_GetColor_qqrv
mov dword [ebp - 0x30], eax
mov al, byte [0x546540]
mov byte [ebp - 0x31], al
lea eax, [ebp - 0x30]
push eax
mov al, byte [ebp - 0x31]
push eax
mov eax, dword [ebp - 8]
mov ecx, dword [eax + 0x3b4]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 8]
mov si, 0xff9b
call sub.rtl60.bpl__System__CallDynaInst_qqrv
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x3b4]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x208]
mov eax, dword [eax + 0xc]
mov ecx, dword [eax]
call dword [ecx + 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x54637e
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x2dc]
mov edx, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x48]
ret
cmp byte [ebp - 0x29], 0
je 0x54638d
mov dword [ebp - 4], 2
jmp 0x546392
xor eax, eax
mov dword [ebp - 4], eax
push ebp
lea eax, [ebp - 0x20]
push eax
mov cl, byte [ebp - 0x29]
lea edx, [ebp - 0x4c]
mov eax, dword [ebp - 0x28]
call fcn.00545df0
pop ecx
mov byte [ebp - 0x2a], al
mov eax, dword [ebp - 8]
cmp byte [eax + 0x3b8], 0
je 0x5463be
mov dword [ebp - 0x38], 2
jmp 0x5463c5
mov dword [ebp - 0x38], 1
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 8]
mov dword [ebp - 0x3c], eax
cmp byte [ebp - 0x2a], 0
jne 0x5463ed
cmp byte [ebp - 0x2b], 1
jne 0x54650a
mov eax, dword [ebp - 0x24]
sub eax, 2
cmp eax, dword [ebp - 0x44]
jle 0x54650a
mov eax, dword [ebp - 0x3c]
add eax, 0x38
mov edx, dword [ebp - 0x28]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 0x3c]
lea edi, [eax + 0x18]
lea esi, [ebp - 0x4c]
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 al, byte [ebp - 0x2b]
sub al, 1
jb 0x54641a
je 0x54644e
dec al
je 0x546485
jmp 0x5464d8
lea ecx, [ebp - 0x70]
mov edx, dword [ebp - 0x48]
sub edx, dword [ebp - 0x38]
mov eax, dword [ebp - 0x4c]
dec eax
call sub.rtl60.bpl__Classes_Point_qqrii
lea edx, [ebp - 0x70]
lea ecx, [ebp - 0x68]
mov eax, dword [ebp - 8]
call sub.vcl60.bpl__Controls_TControl_ClientToScreen_qqrrx12Types_TPoint
mov eax, dword [ebp - 0x3c]
mov edx, dword [ebp - 0x68]
mov dword [eax + 8], edx
mov edx, dword [ebp - 0x64]
mov dword [eax + 0xc], edx
jmp 0x5464d8
lea ecx, [ebp - 0x70]
mov edx, dword [ebp - 0x48]
sub edx, dword [ebp - 0x38]
mov eax, dword [ebp - 0x24]
inc eax
sub eax, dword [ebp - 0x20]
sub eax, 7
call sub.rtl60.bpl__Classes_Point_qqrii
lea edx, [ebp - 0x70]
lea ecx, [ebp - 0x68]
mov eax, dword [ebp - 8]
call sub.vcl60.bpl__Controls_TControl_ClientToScreen_qqrrx12Types_TPoint
mov eax, dword [ebp - 0x3c]
mov edx, dword [ebp - 0x68]
mov dword [eax + 8], edx
mov edx, dword [ebp - 0x64]
mov dword [eax + 0xc], edx
jmp 0x5464d8
mov eax, dword [ebp - 0x24]
inc eax
sub eax, dword [ebp - 0x20]
sub eax, 6
mov edx, dword [ebp - 0x20]
sar edx, 1
jns 0x546499
adc edx, 0
add eax, edx
mov edx, dword [ebp - 0x24]
sub edx, dword [ebp - 0x4c]
sub edx, 4
sar edx, 1
jns 0x5464ab
adc edx, 0
sub eax, edx
lea ecx, [ebp - 0x70]
mov edx, dword [ebp - 0x48]
sub edx, dword [ebp - 0x38]
call sub.rtl60.bpl__Classes_Point_qqrii
lea edx, [ebp - 0x70]
lea ecx, [ebp - 0x68]
mov eax, dword [ebp - 8]
call sub.vcl60.bpl__Controls_TControl_ClientToScreen_qqrrx12Types_TPoint
mov eax, dword [ebp - 0x3c]
mov edx, dword [ebp - 0x68]
mov dword [eax + 8], edx
mov edx, dword [ebp - 0x64]
mov dword [eax + 0xc], edx
mov eax, dword [ebp - 0x3c]
mov edx, dword [0x545c34]
mov dword [eax + 4], edx
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x3b4]
mov edx, dword [ebp - 0x3c]
mov dword [edx + 0x3c], eax
cmp byte [ebp - 0x29], 0
je 0x546515
mov eax, dword [ebp - 0x44]
sub eax, dword [ebp - 0x4c]
sub eax, 4
mov edx, dword [ebp - 0x3c]
mov dword [edx + 0x10], eax
jmp 0x546515
mov eax, dword [ebp - 0x3c]
add eax, 0x38
call sub.rtl60.bpl__System__LStrClr_qqrpv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x54653a
lea eax, [ebp - 0x50]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x28]
call sub.rtl60.bpl__System__LStrClr_qqrpv
ret