Function at 0x409bc0
Capabilities:
Contain obfuscated stackstrings
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffff78
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x88], ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x10], ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 8], ebx
mov dword [ebp - 0xc], ebx
mov dword [ebp - 4], ecx
mov edi, edx
mov ebx, eax
mov esi, dword [ebp + 0x14]
xor eax, eax
push ebp
push 0x409dd4
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, 0x41f2bc
mov edx, esi
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
lea edx, [ebp - 0x14]
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_GetExeName_qqrv
mov eax, dword [ebp - 0x14]
lea edx, [ebp - 0x10]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
mov edx, dword [ebp - 0x10]
lea eax, [ebp - 8]
mov ecx, 0x409dec
call sub.rtl70.bpl__System__LStrCat3_qqrv
lea edx, [ebp - 0x1c]
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_GetExeName_qqrv
mov eax, dword [ebp - 0x1c]
lea edx, [ebp - 0x18]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
mov eax, dword [ebp - 0x18]
push eax
lea edx, [ebp - 0x24]
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_GetExeName_qqrv
mov eax, dword [ebp - 0x24]
lea edx, [ebp - 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFileName_qqrx17System_AnsiString
mov eax, dword [ebp - 0x20]
pop edx
call fcn.00409e88
dec eax
jne 0x409dae
mov dl, 1
mov eax, ebx
call fcn.004065b8
test al, al
je 0x409dae
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x409dae
cmp byte [ebp + 8], 0
je 0x409cc8
push 0x21
mov ecx, 0x409df8
mov edx, 0x409e00
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_MessageBox_qqrpxct1i
dec eax
jne 0x409dae
lea eax, [ebp - 0xc]
push eax
mov dword [ebp - 0x84], ebx
mov byte [ebp - 0x80], 0xb
mov dword [ebp - 0x7c], edi
mov byte [ebp - 0x78], 0xb
mov eax, dword [ebp - 4]
mov dword [ebp - 0x74], eax
mov byte [ebp - 0x70], 0xb
mov eax, dword [ebp + 0x2c]
mov dword [ebp - 0x6c], eax
mov byte [ebp - 0x68], 0xb
mov eax, dword [ebp + 0x28]
mov dword [ebp - 0x64], eax
mov byte [ebp - 0x60], 0xb
mov eax, dword [ebp + 0x24]
mov dword [ebp - 0x5c], eax
mov byte [ebp - 0x58], 0xb
mov eax, dword [ebp + 0x20]
mov dword [ebp - 0x54], eax
mov byte [ebp - 0x50], 0xb
mov eax, dword [ebp + 0x1c]
mov dword [ebp - 0x4c], eax
mov byte [ebp - 0x48], 0xb
mov eax, dword [ebp + 0x18]
mov dword [ebp - 0x44], eax
mov byte [ebp - 0x40], 0xb
mov dword [ebp - 0x3c], esi
mov byte [ebp - 0x38], 0xb
mov eax, dword [ebp + 0x10]
mov dword [ebp - 0x34], eax
mov byte [ebp - 0x30], 0xb
mov eax, dword [ebp + 0xc]
mov dword [ebp - 0x2c], eax
mov byte [ebp - 0x28], 0xb
lea edx, [ebp - 0x84]
mov ecx, 0xb
mov eax, 0x409e28
call sub.rtl70.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov al, byte [0x409e64]
push eax
lea eax, [ebp - 0x88]
push eax
mov ecx, 0x409e70
mov edx, 0x409e7c
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__Sysutils_StringReplace_qqrx17System_AnsiStringt1t149System__Set_t21Sysutils_SysUtils__94_iuc_0_iuc_1_
mov edx, dword [ebp - 0x88]
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
push 0
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
push 0x409e80
push 0
call sub.shell32.dll_ShellExecuteA
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_Terminate_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x409ddb
lea eax, [ebp - 0x88]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x24]
mov edx, 8
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret