Function at 0x501c4610
Capabilities:
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffb8
push ebx
push esi
xor ecx, ecx
mov dword [ebp - 0x48], ecx
mov dword [ebp - 0x44], ecx
mov dword [ebp - 0x40], ecx
mov dword [ebp - 0x3c], ecx
mov dword [ebp - 0x1c], ecx
mov dword [ebp - 0x20], ecx
mov dword [ebp - 0x24], ecx
mov dword [ebp - 4], ecx
mov dword [ebp - 0x18], ecx
mov ebx, edx
mov esi, eax
xor eax, eax
push ebp
push 0x501c4b32
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 0x25], 0
test bl, bl
jne 0x501c4668
test byte [esi + 0x1c], 0x10
jne 0x501c4b02
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetAutoHotkeys_qqrv
test al, al
je 0x501c4b02
lea eax, [ebp - 4]
mov edx, dword [sym.vcl120.bpl__Menus_ValidMenuHotkeys]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
mov dword [ebp - 0xc], eax
xor eax, eax
mov dword [ebp - 0x14], eax
xor eax, eax
mov dword [ebp - 0x2c], eax
xor eax, eax
mov dword [ebp - 8], eax
xor eax, eax
mov dword [ebp - 0x10], eax
xor edx, edx
push ebp
push 0x501c4afb
push dword fs:[edx]
mov dword fs:[edx], esp
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 0xc], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 0x14], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 0x2c], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 8], eax
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetCount_qqrv
dec eax
test eax, eax
jl 0x501c47fd
inc eax
mov dword [ebp - 0x38], eax
mov dword [ebp - 0x30], 0
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
cmp byte [eax + 0x3a], 0
je 0x501c47f1
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
mov eax, dword [eax + 0x30]
mov edx, 0x501c4b50
call sub.rtl120.bpl__System__UStrEqual_qqrv
je 0x501c47f1
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
cmp dword [eax + 0x30], 0
je 0x501c47f1
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
mov eax, dword [eax + 0x30]
lea edx, [ebp - 0x3c]
call sym.vcl120.bpl__Menus_GetHotkey_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x3c]
lea edx, [ebp - 0x1c]
call sub.rtl120.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
cmp dword [ebp - 0x1c], 0
jne 0x501c4783
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
push eax
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
mov ecx, dword [eax + 0x30]
xor edx, edx
mov eax, dword [ebp - 0x2c]
mov ebx, dword [eax]
call dword [ebx + 0x64]
jmp 0x501c47f1
mov edx, dword [sym.vcl120.bpl__Menus_ValidMenuHotkeys]
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__Sysutils_AnsiPos_qqrx20System_UnicodeStringt1
test eax, eax
je 0x501c47f1
push ebp
mov eax, dword [ebp - 0x1c]
call fcn.501c4388
pop ecx
test al, al
jne 0x501c47f1
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
add eax, 0x30
push eax
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
mov eax, dword [eax + 0x30]
lea edx, [ebp - 0x40]
call sym.vcl120.bpl__Menus_StripHotkey_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x40]
pop eax
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
push eax
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
mov ecx, dword [eax + 0x30]
xor edx, edx
mov eax, dword [ebp - 0x2c]
mov ebx, dword [eax]
call dword [ebx + 0x64]
inc dword [ebp - 0x30]
dec dword [ebp - 0x38]
jne 0x501c46f4
lea eax, [ebp - 0x24]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x501c49ab
inc eax
mov dword [ebp - 0x38], eax
lea eax, [ebp - 4]
mov edx, dword [ebp - 0x24]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, dword [ebp - 0x2c]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
cmp eax, 0
jl 0x501c4939
mov dword [ebp - 0x30], eax
lea ecx, [ebp - 0x20]
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x14]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov ebx, 1
jmp 0x501c4917
mov esi, dword [ebp - 0x20]
test esi, esi
je 0x501c4887
mov eax, esi
sub eax, 0xa
cmp word [eax], 2
je 0x501c4887
lea eax, [ebp - 0x20]
mov edx, dword [ebp - 0x20]
call sub.rtl120.bpl__System__InternalUStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov esi, eax
cmp word [esi + ebx*2 - 2], 0xd800
jb 0x501c489c
cmp word [esi + ebx*2 - 2], 0xdfff
ja 0x501c489c
inc ebx
jmp 0x501c4916
lea eax, [ebp - 0x44]
push eax
mov ecx, 1
mov edx, ebx
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x44]
lea edx, [ebp - 0x1c]
call sub.rtl120.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
push ebp
mov eax, dword [ebp - 0x1c]
call fcn.501c4388
pop ecx
test al, al
je 0x501c4916
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_SysLocale]
cmp byte [eax + 0xc], 0
je 0x501c48e2
lea eax, [ebp - 0x20]
mov ecx, ebx
mov edx, dword [ebp - 0x1c]
call fcn.501c443c
jmp 0x501c48f1
lea edx, [ebp - 0x20]
mov ecx, ebx
mov eax, 0x501c4b60
call sub.rtl120.bpl__System__UStrInsert_qqrx20System_UnicodeStringr20System_UnicodeStringi
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov ecx, eax
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x3c]
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x48]
jmp 0x501c492c
inc ebx
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__EnsureUnicodeString_qqrr20System_UnicodeString
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
cmp ebx, eax
jle 0x501c4868
dec dword [ebp - 0x30]
cmp dword [ebp - 0x30], 0xffffffff
jne 0x501c4850
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp eax, dword [ebp - 0x10]
jle 0x501c494d
push ebp
call fcn.501c43b8
pop ecx
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x501c49ab
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x501c49a2
inc esi
mov dword [ebp - 0x30], 0
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov edx, eax
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x5c]
mov ebx, eax
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x14]
mov ecx, eax
dec ecx
mov edx, ebx
mov eax, dword [ebp - 0x2c]
mov ebx, dword [eax]
call dword [ebx + 0x78]
inc dword [ebp - 0x30]
dec esi
jne 0x501c4970
dec dword [ebp - 0x38]
jne 0x501c481d
cmp dword [ebp - 0x10], 0
jne 0x501c49b8
push ebp
call fcn.501c43b8
pop ecx
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
setg byte [ebp - 0x25]
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x501c4acd
inc eax
mov dword [ebp - 0x38], eax
mov dword [ebp - 0x30], 0
lea ecx, [ebp - 0x20]
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_SysLocale]
cmp byte [eax + 0xc], 0
je 0x501c4aab
mov edx, dword [ebp - 0x20]
mov eax, 0x501c4b60
call sub.rtl120.bpl__Sysutils_AnsiPos_qqrx20System_UnicodeStringt1
test eax, eax
jne 0x501c4aab
cmp dword [ebp - 0x18], 0
je 0x501c4aab
mov edx, dword [ebp - 0x20]
mov eax, 0x501c4b60
call sub.rtl120.bpl__Sysutils_AnsiPos_qqrx20System_UnicodeStringt1
test eax, eax
jne 0x501c4aab
mov eax, dword [ebp - 0x18]
test eax, eax
je 0x501c4a4c
mov edx, eax
sub edx, 0xa
cmp word [edx], 2
je 0x501c4a4c
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0x18]
call sub.rtl120.bpl__System__InternalUStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov ebx, eax
test ebx, ebx
je 0x501c4a57
sub ebx, 4
mov ebx, dword [ebx]
lea eax, [ebp - 0x48]
push eax
mov ecx, 1
mov edx, ebx
mov eax, dword [ebp - 0x18]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov edx, dword [ebp - 0x48]
lea eax, [ebp - 0x20]
xor ecx, ecx
call fcn.501c443c
mov eax, dword [ebp - 0x18]
test eax, eax
je 0x501c4a94
mov edx, eax
sub edx, 0xa
cmp word [edx], 2
je 0x501c4a94
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0x18]
call sub.rtl120.bpl__System__InternalUStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
test eax, eax
je 0x501c4a9d
sub eax, 4
mov eax, dword [eax]
lea edx, [ebp - 0x18]
mov ecx, 1
xchg edx, eax
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x18]
add eax, 0x30
mov edx, dword [ebp - 0x20]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
inc dword [ebp - 0x30]
dec dword [ebp - 0x38]
jne 0x501c49e2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501c4b02
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x2c]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501c4b39
lea eax, [ebp - 0x48]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x24]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret