Function at 0x415fa0
Capabilities:
Allocate or change rwx memory
Execute shellcode via indirect call

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 6
push 0
push 0
dec ecx
jne 0x415fa9
xchg dword [ebp - 4], ecx
push ebx
push esi
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x4161c4
push dword fs:[eax]
mov dword fs:[eax], esp
call fcn.0040550c
xor edx, edx
push ebp
push 0x41618d
push dword fs:[edx]
mov dword fs:[edx], esp
lea edx, [ebp - 0x28]
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__Sysutils_GetModuleName_qqrui
mov eax, dword [ebp - 0x28]
lea edx, [ebp - 0x10]
call sub.rtl70.bpl__Sysutils_ExtractFileName_qqrx17System_AnsiString
xor eax, eax
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x30]
mov ebx, dword [eax + 8]
dec ebx
test ebx, ebx
jl 0x416033
inc ebx
xor esi, esi
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x30]
mov edx, esi
call sub.rtl70.bpl__Classes_TList_Get_qqri
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 0x10]
call fcn.004163dc
test eax, eax
je 0x41602f
mov eax, dword [eax + 0x10]
mov dword [ebp - 0x18], eax
jmp 0x416033
inc esi
dec ebx
jne 0x41600b
cmp dword [ebp - 0x18], 0
jne 0x416042
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x38]
mov dword [ebp - 0x18], eax
lea eax, [ebp - 0x14]
mov edx, dword [ebp - 0x18]
mov edx, dword [edx + 0xc]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x2c]
mov edx, dword [ebp + 0x10]
call sub.rtl70.bpl__System__LStrFromPChar_qqrr17System_AnsiStringpc
mov eax, dword [ebp - 0x2c]
push eax
lea eax, [ebp - 0x14]
push eax
mov ecx, dword [ebp - 0xc]
mov edx, dword [ebp - 8]
mov eax, dword [ebp - 4]
call fcn.00415e44
test al, al
jne 0x41607f
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x416194
mov eax, dword [ebp - 0x18]
mov edx, dword [eax + 4]
mov eax, dword [0x4f80ec]
mov eax, dword [eax]
call fcn.00413fa8
mov ebx, eax
test ebx, ebx
je 0x41617a
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x10]
push eax
lea eax, [ebp - 0x19]
push eax
push 1
push 0
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x30]
mov edx, dword [ebp + 0x10]
call sub.rtl70.bpl__System__LStrFromPChar_qqrr17System_AnsiStringpc
mov edx, dword [ebp - 0x30]
mov ecx, dword [ebp - 0x14]
mov eax, ebx
mov ebx, dword [eax]
call dword [ebx + 0x6c]
lea eax, [ebp - 0x34]
mov edx, dword [ebp + 0x10]
call sub.rtl70.bpl__System__LStrFromPChar_qqrr17System_AnsiStringpc
mov eax, dword [ebp - 0x34]
push eax
mov eax, dword [ebp - 0x20]
push eax
mov ecx, dword [ebp - 0xc]
mov edx, dword [ebp - 8]
mov eax, dword [ebp - 4]
call fcn.00415d84
mov eax, dword [ebp - 0x20]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov edx, dword [ebp + 8]
mov dword [edx], eax
mov eax, dword [ebp + 8]
mov eax, dword [eax]
xor edx, edx
push edx
push eax
mov eax, dword [ebp + 0xc]
cdq
cmp edx, dword [esp + 4]
jne 0x416110
cmp eax, dword [esp]
pop edx
pop eax
ja 0x416119
jmp 0x416114
pop edx
pop eax
jg 0x416119
mov eax, dword [ebp + 8]
dec dword [eax]
lea eax, [ebp - 0x24]
push eax
push 0x40
mov eax, dword [ebp + 8]
mov eax, dword [eax]
inc eax
push eax
mov eax, dword [ebp + 0x10]
push eax
call sub.kernel32.dll_VirtualProtect
test eax, eax
je 0x41617a
mov eax, dword [ebp - 0x20]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov edx, dword [ebp + 8]
mov ecx, dword [edx]
mov edx, dword [ebp + 0x10]
call sub.rtl70.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebp + 0x10]
cdq
push edx
push eax
mov eax, dword [ebp + 8]
mov eax, dword [eax]
xor edx, edx
add eax, dword [esp]
adc edx, dword [esp + 4]
add esp, 8
mov byte [eax], 0
lea eax, [ebp - 0x24]
push eax
mov eax, dword [ebp - 0x24]
push eax
mov eax, dword [ebp + 8]
mov eax, dword [eax]
inc eax
push eax
mov eax, dword [ebp + 0x10]
push eax
call sub.kernel32.dll_VirtualProtect
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x416194
call fcn.00405518
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4161cb
lea eax, [ebp - 0x34]
mov edx, 4
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x20]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x14]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret