Function at 0x50e514
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
mov ecx, 8
push 0
push 0
dec ecx
jne 0x50e51c
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x50e6ce
push dword fs:[eax]
mov dword fs:[eax], esp
movzx eax, byte [0x50e6dc]
push eax
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x14]
call fcn.0050e4e4
mov ecx, dword [ebp - 0x14]
mov edx, 0x50e6ec
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x10]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
movzx eax, byte [0x50e6dc]
push eax
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x1c]
call fcn.0050edc4
mov ecx, dword [ebp - 0x1c]
mov edx, 0x50e70c
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x18]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
movzx eax, byte [0x50e6dc]
push eax
lea eax, [ebp - 0x20]
push eax
lea edx, [ebp - 0x28]
xor eax, eax
call sub.rtl120.bpl__System_ParamStr_qqri
mov eax, dword [ebp - 0x28]
lea edx, [ebp - 0x24]
call sub.rtl120.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
mov ecx, dword [ebp - 0x24]
mov edx, 0x50e72c
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x20]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
movzx eax, byte [0x50e6dc]
push eax
lea eax, [ebp - 0x2c]
push eax
lea edx, [ebp - 0x34]
xor eax, eax
call sub.rtl120.bpl__System_ParamStr_qqri
mov eax, dword [ebp - 0x34]
lea edx, [ebp - 0x30]
call sub.rtl120.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
mov ecx, dword [ebp - 0x30]
mov edx, 0x50e748
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 0x2c]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x3c]
push eax
mov ecx, 0xc
mov edx, 1
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x3c]
lea edx, [ebp - 0x38]
call sub.rtl120.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x38]
mov edx, 0x50e764
call sub.rtl120.bpl__System__UStrEqual_qqrv
je 0x50e671
push 1
push 0
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x50e780
push 0
call sub.shell32.dll_ShellExecuteW
jmp 0x50e6b3
lea eax, [ebp - 0x40]
push eax
mov ecx, 0xff
mov edx, 0xe
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov edx, dword [ebp - 0x40]
lea eax, [ebp - 0xc]
mov ecx, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
push 1
push 0
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x50e78c
push 0x50e780
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x50e6d5
lea eax, [ebp - 0x40]
mov edx, 0x10
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret