Function at 0x4129a0
Capabilities:
Create process on windows
Create process suspended

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x24
push 0
push 0
dec ecx
jne 0x4129a8
push ebx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x412d84
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8a4]
mov edx, dword [eax]
call dword [edx + 0x30]
test al, al
jne 0x412d0c
mov eax, dword [sym.imp.coreide60.bpl__Modules_TWorkspace_]
call sub.coreide60.bpl__Modules_TWorkspace_ActiveProject_qqrp17System_TMetaClass
mov dword [ebp - 0x14], eax
cmp dword [ebp - 0x14], 0
je 0x412d0c
call sub.coreide60.bpl__Modules_SaveModifiedModules_qqrv
test al, al
je 0x412d0c
lea edx, [ebp - 0x70]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
mov edx, dword [ebp - 0x70]
lea eax, [ebp - 0x18]
mov ecx, 0x412d90
call sub.rtl60.bpl__System__IntfCast_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0xd4]
test al, 1
setne dl
xor dl, 1
lea eax, [ebp - 0x80]
call sub.rtl60.bpl__System__VarFromBool_qqrr14System_Variantxo
lea eax, [ebp - 0x80]
push eax
lea ecx, [ebp - 0x90]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x6c]
mov edx, 0x412da8
mov ebx, dword [eax]
call dword [ebx + 0x3c]
lea eax, [ebp - 0x90]
call sub.rtl60.bpl__System__VarNot_qqrr14System_Variant
lea edx, [ebp - 0x90]
pop eax
call sub.rtl60.bpl__System__VarOr_qqrr14System_Variantrx14System_Variant
lea eax, [ebp - 0x80]
push eax
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x14]
mov edx, eax
lea eax, [ebp - 0xa0]
call sub.rtl60.bpl__System__VarFromBool_qqrr14System_Variantxo
lea edx, [ebp - 0xa0]
pop eax
call sub.rtl60.bpl__System__VarOr_qqrr14System_Variantrx14System_Variant
lea eax, [ebp - 0x80]
push eax
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0xd4]
test al, 8
setne dl
lea eax, [ebp - 0xb0]
call sub.rtl60.bpl__System__VarFromBool_qqrr14System_Variantxo
lea edx, [ebp - 0xb0]
pop eax
call sub.rtl60.bpl__System__VarOr_qqrr14System_Variantrx14System_Variant
lea eax, [ebp - 0x80]
call sub.rtl60.bpl__System__VarToBool_qqrrx14System_Variant
test al, al
je 0x412bb1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8a4]
mov edx, dword [eax]
call dword [edx + 0x28]
xor eax, eax
push ebp
push 0x412baa
push dword fs:[eax]
mov dword fs:[eax], esp
lea ecx, [ebp - 0xc0]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x6c]
mov edx, 0x412dc0
mov ebx, dword [eax]
call dword [ebx + 0x3c]
lea eax, [ebp - 0xc0]
call sub.rtl60.bpl__System__VarToBool_qqrrx14System_Variant
mov byte [ebp - 9], al
lea eax, [ebp - 0xd0]
mov dl, 1
call sub.rtl60.bpl__System__VarFromBool_qqrr14System_Variantxo
lea ecx, [ebp - 0xd0]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x6c]
mov edx, 0x412dc0
mov ebx, dword [eax]
call dword [ebx + 0x40]
xor eax, eax
push ebp
push 0x412b87
push dword fs:[eax]
mov dword fs:[eax], esp
xor ecx, ecx
xor edx, edx
mov eax, dword [ebp - 4]
call fcn.00410f00
test al, al
jne 0x412b55
call sub.rtl60.bpl__System__TryFinallyExit_qqrv
call sub.rtl60.bpl__System__TryFinallyExit_qqrv
jmp 0x412d0c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x412b8e
lea eax, [ebp - 0xe0]
mov dl, byte [ebp - 9]
call sub.rtl60.bpl__System__VarFromBool_qqrr14System_Variantxo
lea ecx, [ebp - 0xe0]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x6c]
mov edx, 0x412dc0
mov ebx, dword [eax]
call dword [ebx + 0x40]
ret
lea edx, [ebp - 0x10]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x6c]
mov ecx, dword [eax]
call dword [ecx + 0x20]
lea edx, [ebp - 0xe4]
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__Sysutils_ExtractFileExt_qqrx17System_AnsiString
mov eax, dword [ebp - 0xe4]
mov edx, 0x412dd4
call sub.rtl60.bpl__Sysutils_CompareText_qqrx17System_AnsiStringt1
test eax, eax
je 0x412bf8
mov ecx, dword [sym.imp.coreide60.bpl__Appconst__sCantRunUnitDLL]
mov dl, 1
mov eax, dword [sym.imp.rtl60.bpl__Sysutils_Exception_]
call sub.rtl60.bpl__Sysutils_Exception__bctr_qqrp20System_TResStringRec
call sub.rtl60.bpl__System__RaiseExcept_qqrv
lea eax, [ebp - 0x6c]
xor ecx, ecx
mov edx, 0x44
call sub.rtl60.bpl__System__FillChar_qqrpvic
mov dword [ebp - 0x6c], 0x44
push dword [ebp - 8]
push 0x412de4
push dword [ebp - 0x10]
push 0x412df0
lea eax, [ebp - 0xf8]
mov edx, 4
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xf8]
lea eax, [ebp - 0xf4]
call sub.rtl60.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xf4]
push eax
mov eax, dword [sym.imp.coreide60.bpl__Modules_TWorkspace_]
call sub.coreide60.bpl__Modules_TWorkspace_ActiveProject_qqrp17System_TMetaClass
mov eax, dword [eax + 0x6c]
lea ecx, [ebp - 0x108]
mov edx, 0x412dfc
mov ebx, dword [eax]
call dword [ebx + 0x3c]
lea edx, [ebp - 0x108]
pop eax
call sub.rtl60.bpl__System__VarAdd_qqrr14System_Variantrx14System_Variant
lea edx, [ebp - 0xf4]
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__VarToLStr_qqrr17System_AnsiStringrx14System_Variant
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x6c]
push eax
push 0
push 0
push 0
push 0
push 0
push 0
mov eax, dword [ebp - 0x10]
call sub.rtl60.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
push 0
call sub.kernel32.dll_CreateProcessA
test eax, eax
jne 0x412d0c
push 0
lea eax, [ebp - 0x10c]
push eax
lea edx, [ebp - 0x110]
mov eax, dword [sym.imp.coreide60.bpl__Appconst__sErrorExecCom]
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x110]
push eax
mov eax, dword [ebp - 0x10]
mov dword [ebp - 0x120], eax
mov byte [ebp - 0x11c], 0xb
call sub.kernel32.dll_GetLastError
mov dword [ebp - 0x118], eax
mov byte [ebp - 0x114], 0
lea edx, [ebp - 0x120]
mov ecx, 1
pop eax
call sub.rtl60.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov eax, dword [ebp - 0x10c]
mov cx, word [0x412e08]
mov dl, 1
call sub.vcl60.bpl__Dialogs_MessageDlg_qqrx17System_AnsiString19Dialogs_TMsgDlgType47System__Set_t18Dialogs_TMsgDlgBtn_iuc_0_iuc_10
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x412d8b
lea eax, [ebp - 0x110]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x108]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0xf8]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xf4]
call sub.rtl60.bpl__System__VarClr_qqrr14System_Variant
lea eax, [ebp - 0xe4]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xe0]
mov edx, dword [sym.imp.rtl60.bpl___xp_14System_Variant]
mov ecx, 7
call sub.rtl60.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x70]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x18]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__LStrClr_qqrpv
ret