Function at 0x608fe8
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
mov ecx, 8
push 0
push 0
dec ecx
jne 0x608ff0
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 0x6091a2
push dword fs:[eax]
mov dword fs:[eax], esp
movzx eax, byte [0x6091b0]
push eax
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x14]
call fcn.00608fb8
mov ecx, dword [ebp - 0x14]
mov edx, 0x6091c0
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 [0x6091b0]
push eax
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x1c]
call fcn.00609898
mov ecx, dword [ebp - 0x1c]
mov edx, 0x6091e0
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 [0x6091b0]
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, 0x609200
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 [0x6091b0]
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, 0x60921c
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, 0x609238
call sub.rtl120.bpl__System__UStrEqual_qqrv
je 0x609145
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 0x609254
push 0
call sub.shell32.dll_ShellExecuteW
jmp 0x609187
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 0x609260
push 0x609254
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6091a9
lea eax, [ebp - 0x40]
mov edx, 0x10
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret