Function at 0x452218
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x452220
push ecx
push ebx
push esi
push edi
mov esi, eax
xor eax, eax
push ebp
push 0x452434
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x45240f
push dword fs:[eax]
mov dword fs:[eax], esp
xor ebx, ebx
cmp dword [esi + 0x398], 0
je 0x4523d0
mov eax, dword [esi + 0x398]
cmp byte [eax + 0x10], 0
je 0x452268
mov bl, 1
jmp 0x45228f
call sub.kernel32.dll_GetTickCount
sub eax, dword [esi + 0x394]
cmp eax, 0x1f40
jae 0x45228f
push 0xa
call sub.kernel32.dll_Sleep
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
jmp 0x452258
test bl, bl
je 0x4523d0
mov eax, dword [esi + 0x390]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x4523d0
lea ecx, [ebp - 8]
mov eax, dword [esi + 0x390]
xor edx, edx
call fcn.00419438
lea edx, [ebp - 0xc]
mov eax, dword [esi + 0x39c]
call sub.rtl120.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xc]
push eax
lea edx, [ebp - 0x10]
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x10]
pop edx
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
je 0x4523d0
push 0
lea edx, [ebp - 0x18]
xor eax, eax
call sub.rtl120.bpl__System_ParamStr_qqri
mov eax, dword [ebp - 0x18]
lea edx, [ebp - 0x14]
call sub.rtl120.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
lea eax, [ebp - 0x14]
mov edx, 0x452450
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [esi + 0x390]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CopyFileW
mov eax, dword [esi + 0x390]
call sub.rtl120.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
mov dl, 1
mov eax, dword [0x410e40]
call fcn.0041411c
mov ebx, eax
mov edx, dword [ebx + 8]
lea eax, [ebp - 4]
mov ecx, 0x452494
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
lea edx, [ebp - 0x1c]
mov eax, 1
call sub.rtl120.bpl__System_ParamStr_qqri
mov eax, dword [ebp - 0x1c]
mov edx, 0x4524c8
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
je 0x45238d
call sub.rtl120.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
mov ecx, 0x4524dc
mov edx, 0x4524f0
mov eax, dword [ebp - 4]
call fcn.0040650c
jmp 0x4523c9
lea edx, [ebp - 0x20]
mov eax, 1
call sub.rtl120.bpl__System_ParamStr_qqri
mov eax, dword [ebp - 0x20]
mov edx, 0x45250c
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
je 0x4523c9
call sub.rtl120.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
mov ecx, 0x452524
mov edx, 0x4524f0
mov eax, dword [ebp - 4]
call fcn.0040650c
mov eax, ebx
call sub.rtl120.bpl__System_TObject_Free_qqrv
lea eax, [ebp - 0x24]
call fcn.004048f4
mov edx, dword [ebp - 0x24]
lea eax, [esi + 0x390]
mov ecx, 0x452538
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [esi + 0x390]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x452405
mov eax, dword [esi + 0x390]
call sub.rtl120.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x452419
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x45243b
lea eax, [ebp - 0x24]
mov edx, 9
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret