Function at 0x450afc
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x450b04
push ecx
push ebx
push esi
push edi
mov esi, eax
xor eax, eax
push ebp
push 0x450d18
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x450cf3
push dword fs:[eax]
mov dword fs:[eax], esp
xor ebx, ebx
cmp dword [esi + 0x398], 0
je 0x450cb4
mov eax, dword [esi + 0x398]
cmp byte [eax + 0x10], 0
je 0x450b4c
mov bl, 1
jmp 0x450b73
call sub.kernel32.dll_GetTickCount
sub eax, dword [esi + 0x394]
cmp eax, 0x1f40
jae 0x450b73
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 0x450b3c
test bl, bl
je 0x450cb4
mov eax, dword [esi + 0x390]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x450cb4
lea ecx, [ebp - 8]
mov eax, dword [esi + 0x390]
xor edx, edx
call fcn.00404070
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 0x450cb4
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, 0x450d34
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 [0x405b70]
call fcn.00408cf4
mov ebx, eax
mov edx, dword [ebx + 8]
lea eax, [ebp - 4]
mov ecx, 0x450d78
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, 0x450dac
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
je 0x450c71
call sub.rtl120.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
mov ecx, 0x450dc0
mov edx, 0x450dd4
mov eax, dword [ebp - 4]
call fcn.0044f96c
jmp 0x450cad
lea edx, [ebp - 0x20]
mov eax, 1
call sub.rtl120.bpl__System_ParamStr_qqri
mov eax, dword [ebp - 0x20]
mov edx, 0x450df0
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
je 0x450cad
call sub.rtl120.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
mov ecx, 0x450e08
mov edx, 0x450dd4
mov eax, dword [ebp - 4]
call fcn.0044f96c
mov eax, ebx
call sub.rtl120.bpl__System_TObject_Free_qqrv
lea eax, [ebp - 0x24]
call fcn.00404c38
mov edx, dword [ebp - 0x24]
lea eax, [esi + 0x390]
mov ecx, 0x450e1c
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 0x450ce9
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 0x450cfd
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x450d1f
lea eax, [ebp - 0x24]
mov edx, 9
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret