Function at 0x6e2f94
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 4
push 0
push 0
dec ecx
jne 0x6e2f9d
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
test dl, dl
je 0x6e2fb6
add esp, 0xfffffff0
call sub.rtl120.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov dword [ebp - 4], ecx
mov byte [ebp - 0xd], dl
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0xc]
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 0x6e3189
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp + 0xc]
push eax
mov eax, dword [ebp + 8]
push eax
mov ecx, dword [ebp - 4]
xor edx, edx
mov eax, dword [ebp - 0xc]
call fcn.006e0880
mov eax, dword [ebp - 0xc]
mov edx, dword [eax + 4]
lea eax, [ebp - 0x14]
mov ecx, 0x6e31c0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x14]
push eax
push 0
mov eax, dword [ebp - 0xc]
mov edx, dword [eax + 4]
lea eax, [ebp - 0x18]
mov ecx, 0x6e31e8
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x18]
push eax
xor ecx, ecx
mov dl, 1
mov eax, dword [0x6e20c8]
call fcn.006e2260
mov edx, dword [ebp - 0xc]
mov dword [edx + 0x24], eax
mov byte [ebp - 0xe], 1
lea eax, [ebp - 8]
call fcn.006e0b3c
mov eax, dword [0x7a08f0]
mov edx, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x6e3071
mov eax, dword [ebp - 8]
call fcn.0040a908
test eax, eax
setbe byte [ebp - 0xe]
mov bl, 1
cmp byte [ebp - 0xe], 0
je 0x6e30d1
xor eax, eax
push ebp
push 0x6e30c5
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0xc]
mov edx, dword [eax + 4]
lea eax, [ebp - 0x1c]
push eax
mov ecx, 0x6e31e8
pop eax
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CopyFileW
cmp eax, 1
sbb ebx, ebx
inc ebx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6e30d1
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 4]
push eax
lea eax, [ebp - 0x20]
push eax
mov ecx, 0x6e31e8
pop eax
pop edx
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x20]
mov dl, 1
mov eax, dword [0x408858]
call fcn.0040891c
mov esi, eax
mov eax, dword [ebp - 0xc]
mov dword [eax + 0x2c], esi
test bl, bl
je 0x6e311a
mov ecx, dword [ebp - 8]
mov dl, 1
mov eax, dword [0x408858]
call fcn.0040891c
mov edx, dword [ebp - 0xc]
mov dword [edx + 0x28], eax
jmp 0x6e3137
mov eax, dword [ebp - 0xc]
mov dword [eax + 0x28], esi
mov eax, dword [ebp - 0xc]
mov edx, dword [eax + 4]
mov eax, dword [0x7a08f0]
push eax
mov ecx, 0x6e31e8
pop eax
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
lea eax, [ebp - 0x24]
call fcn.006e1d48
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 0xc]
add eax, 0x30
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x20], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6e3190
lea eax, [ebp - 0x24]
mov edx, 5
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp + 8]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret