Function at 0x679470
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
mov ecx, 8
push 0
push 0
dec ecx
jne 0x679478
push ecx
push ebx
push esi
push edi
mov ebx, eax
xor eax, eax
push ebp
push 0x679725
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0xc]
call fcn.0040b8f8
mov eax, dword [ebx + 0x6c]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x6795cf
cmp dword [ebx + 0x54], 0
jne 0x6794ef
lea eax, [ebp - 0x18]
call fcn.0040b8f8
push dword [ebp - 0x18]
push 0x679740
call fcn.0040fd9c
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x1c]
mov eax, 0x679760
call sub.rtl120.bpl__Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
push dword [ebp - 0x1c]
push 0x679780
lea eax, [ebx + 0x54]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
push 0
mov eax, dword [ebx + 0x54]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call fcn.0066aa85
add esp, 8
mov dword [ebp - 0x10], eax
cmp dword [ebp - 0x10], 0
je 0x6795cf
mov eax, dword [ebx + 0x6c]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x6795c5
inc eax
mov dword [ebp - 0x14], eax
xor esi, esi
lea ecx, [ebp - 0x24]
mov edx, esi
mov eax, dword [ebx + 0x6c]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x24]
lea edx, [ebp - 0x20]
call sub.rtl120.bpl__Sysutils_ExtractFileName_qqrx20System_UnicodeString
mov ecx, dword [ebp - 0x20]
lea eax, [ebp - 8]
mov edx, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
lea ecx, [ebp - 4]
mov edx, esi
mov eax, dword [ebx + 0x70]
mov edi, dword [eax]
call dword [edi + 0xc]
push 0
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
lea ecx, [ebp - 0x28]
mov edx, esi
mov eax, dword [ebx + 0x6c]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x28]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CopyFileW
test eax, eax
je 0x6795bb
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov edi, eax
lea ecx, [ebp - 0x2c]
mov edx, 0x679798
mov eax, dword [ebp - 4]
call fcn.0040a80c
mov eax, dword [ebp - 0x2c]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push edi
push eax
mov eax, dword [ebp - 0x10]
push eax
call fcn.0066ab0d
add esp, 0xc
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
inc esi
dec dword [ebp - 0x14]
jne 0x679526
mov eax, dword [ebp - 0x10]
push eax
call fcn.0066abf7
pop ecx
mov eax, dword [ebx + 0x74]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x6796fd
lea eax, [ebp - 0x30]
call fcn.0040b8f8
push dword [ebp - 0x30]
push 0x6797a8
call fcn.0040fd9c
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x34]
mov eax, 0x679760
call sub.rtl120.bpl__Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
push dword [ebp - 0x34]
push 0x679780
lea eax, [ebx + 0x58]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
push 0
mov eax, dword [ebx + 0x58]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call fcn.0066aa85
add esp, 8
mov dword [ebp - 0x10], eax
cmp dword [ebp - 0x10], 0
je 0x6796fd
mov eax, dword [ebx + 0x68]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x6796f3
inc eax
mov dword [ebp - 0x14], eax
xor esi, esi
lea ecx, [ebp - 0x3c]
mov edx, esi
mov eax, dword [ebx + 0x68]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x3c]
lea edx, [ebp - 0x38]
call sub.rtl120.bpl__Sysutils_ExtractFileName_qqrx20System_UnicodeString
mov ecx, dword [ebp - 0x38]
lea eax, [ebp - 8]
mov edx, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
lea ecx, [ebp - 4]
mov edx, esi
mov eax, dword [ebx + 0x74]
mov edi, dword [eax]
call dword [edi + 0xc]
push 0
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
lea ecx, [ebp - 0x40]
mov edx, esi
mov eax, dword [ebx + 0x68]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x40]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CopyFileW
test eax, eax
je 0x6796e9
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov edi, eax
lea ecx, [ebp - 0x44]
mov edx, 0x679798
mov eax, dword [ebp - 4]
call fcn.0040a80c
mov eax, dword [ebp - 0x44]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push edi
push eax
mov eax, dword [ebp - 0x10]
push eax
call fcn.0066ab0d
add esp, 0xc
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
inc esi
dec dword [ebp - 0x14]
jne 0x679654
mov eax, dword [ebp - 0x10]
push eax
call fcn.0066abf7
pop ecx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x67972c
lea eax, [ebp - 0x44]
mov edx, 0xc
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret