Function at 0x501c4624
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 0x501c4b46
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 0x25], 0
test bl, bl
jne 0x501c467c
test byte [esi + 0x1c], 0x10
jne 0x501c4b16
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetAutoHotkeys_qqrv
test al, al
je 0x501c4b16
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 0x501c4b0f
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 0x501c4811
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 0x501c4805
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
mov eax, dword [eax + 0x30]
mov edx, 0x501c4b64
call sub.rtl120.bpl__System__UStrEqual_qqrv
je 0x501c4805
mov edx, dword [ebp - 0x30]
mov eax, esi
call sym.vcl120.bpl__Menus_TMenuItem_GetItem_qqri
cmp dword [eax + 0x30], 0
je 0x501c4805
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 0x501c4797
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 0x501c4805
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 0x501c4805
push ebp
mov eax, dword [ebp - 0x1c]
call fcn.501c439c
pop ecx
test al, al
jne 0x501c4805
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 0x501c4708
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 0x501c49bf
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 0x501c494d
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 0x501c492b
mov esi, dword [ebp - 0x20]
test esi, esi
je 0x501c489b
mov eax, esi
sub eax, 0xa
cmp word [eax], 2
je 0x501c489b
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 0x501c48b0
cmp word [esi + ebx*2 - 2], 0xdfff
ja 0x501c48b0
inc ebx
jmp 0x501c492a
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.501c439c
pop ecx
test al, al
je 0x501c492a
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_SysLocale]
cmp byte [eax + 0xc], 0
je 0x501c48f6
lea eax, [ebp - 0x20]
mov ecx, ebx
mov edx, dword [ebp - 0x1c]
call fcn.501c4450
jmp 0x501c4905
lea edx, [ebp - 0x20]
mov ecx, ebx
mov eax, 0x501c4b74
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 0x501c4940
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 0x501c487c
dec dword [ebp - 0x30]
cmp dword [ebp - 0x30], 0xffffffff
jne 0x501c4864
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp eax, dword [ebp - 0x10]
jle 0x501c4961
push ebp
call fcn.501c43cc
pop ecx
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x501c49bf
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x501c49b6
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 0x501c4984
dec dword [ebp - 0x38]
jne 0x501c4831
cmp dword [ebp - 0x10], 0
jne 0x501c49cc
push ebp
call fcn.501c43cc
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 0x501c4ae1
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 0x501c4abf
mov edx, dword [ebp - 0x20]
mov eax, 0x501c4b74
call sub.rtl120.bpl__Sysutils_AnsiPos_qqrx20System_UnicodeStringt1
test eax, eax
jne 0x501c4abf
cmp dword [ebp - 0x18], 0
je 0x501c4abf
mov edx, dword [ebp - 0x20]
mov eax, 0x501c4b74
call sub.rtl120.bpl__Sysutils_AnsiPos_qqrx20System_UnicodeStringt1
test eax, eax
jne 0x501c4abf
mov eax, dword [ebp - 0x18]
test eax, eax
je 0x501c4a60
mov edx, eax
sub edx, 0xa
cmp word [edx], 2
je 0x501c4a60
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 0x501c4a6b
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.501c4450
mov eax, dword [ebp - 0x18]
test eax, eax
je 0x501c4aa8
mov edx, eax
sub edx, 0xa
cmp word [edx], 2
je 0x501c4aa8
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0x18]
call sub.rtl120.bpl__System__InternalUStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
test eax, eax
je 0x501c4ab1
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 0x501c49f6
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501c4b16
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 0x501c4b4d
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