Function at 0x727c84
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 4
push 0
push 0
dec ecx
jne 0x727c8d
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
test dl, dl
je 0x727ca6
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 0x727e79
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.00708e08
mov eax, dword [ebp - 0xc]
mov edx, dword [eax + 4]
lea eax, [ebp - 0x14]
mov ecx, 0x727eb0
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, 0x727ed8
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 [0x7270bc]
call fcn.00727254
mov edx, dword [ebp - 0xc]
mov dword [edx + 0x24], eax
mov byte [ebp - 0xe], 1
lea eax, [ebp - 8]
call fcn.007079ac
mov eax, dword [0x806c38]
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 0x727d61
mov eax, dword [ebp - 8]
call fcn.0040c120
test eax, eax
setbe byte [ebp - 0xe]
mov bl, 1
cmp byte [ebp - 0xe], 0
je 0x727dc1
xor eax, eax
push ebp
push 0x727db5
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, 0x727ed8
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 0x727dc1
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 4]
push eax
lea eax, [ebp - 0x20]
push eax
mov ecx, 0x727ed8
pop eax
pop edx
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x20]
mov dl, 1
mov eax, dword [0x4046a4]
call fcn.00404768
mov esi, eax
mov eax, dword [ebp - 0xc]
mov dword [eax + 0x2c], esi
test bl, bl
je 0x727e0a
mov ecx, dword [ebp - 8]
mov dl, 1
mov eax, dword [0x4046a4]
call fcn.00404768
mov edx, dword [ebp - 0xc]
mov dword [edx + 0x28], eax
jmp 0x727e27
mov eax, dword [ebp - 0xc]
mov dword [eax + 0x28], esi
mov eax, dword [ebp - 0xc]
mov edx, dword [eax + 4]
mov eax, dword [0x806c38]
push eax
mov ecx, 0x727ed8
pop eax
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
lea eax, [ebp - 0x24]
call fcn.007269b4
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 0x727e80
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