Function at 0x437ec4
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 4
push 0
push 0
dec ecx
jne 0x437ecd
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 0x10], ecx
mov edi, edx
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x4380e5
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0xc]
call fcn.004394d0
xor edx, edx
push ebp
push 0x4380ae
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x38]
mov edx, edi
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov ebx, eax
inc ebx
jne 0x437f34
mov eax, dword [sym.imp.vcl140.bpl__Forms_Application]
mov eax, dword [eax]
cmp dword [eax + 0x44], 0
je 0x437f34
mov edx, edi
mov eax, dword [ebp - 0xc]
call fcn.00439354
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x38]
mov edx, edi
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov ebx, eax
cmp ebx, 0xffffffff
jne 0x437f52
call sub.rtl140.bpl__System__TryFinallyExit_qqrv
jmp 0x4380b5
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x38]
mov edx, ebx
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov esi, eax
cmp dword [esi], 0
jne 0x43803c
mov eax, dword [sym.imp.vcl140.bpl__Forms_Application]
mov eax, dword [eax]
cmp dword [eax + 0x44], 0
je 0x437f86
mov edx, edi
mov eax, dword [ebp - 0xc]
call fcn.00439354
jmp 0x43803c
lea eax, [ebp - 4]
mov edx, dword [esi + 4]
call sub.rtl140.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp - 4], 0
je 0x43803c
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
jne 0x438025
lea edx, [ebp - 0x18]
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x18]
mov eax, 0x438104
call sub.rtl140.bpl__System_Pos_qqrx20System_UnicodeStringt1
test eax, eax
jle 0x438025
lea eax, [ebp - 8]
push eax
lea edx, [ebp - 0x1c]
mov eax, 0x43811c
call sub.rtl140.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x1c]
push eax
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x20]
mov ecx, 0x438134
pop edx
call fcn.00437ddc
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x438025
push 0xffffffffffffffff
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CopyFileW
push 0x64
call sub.kernel32.dll_Sleep
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x43803c
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.00438510
mov edi, dword [esi]
test edi, edi
je 0x438098
mov eax, edi
mov ecx, dword [ebp - 0x10]
mov dl, 1
call dword [eax + 0x2c]
mov dword [ebp - 0x14], eax
cmp dword [ebp - 0x14], 0
je 0x438098
mov edx, dword [esi + 4]
mov eax, dword [ebp - 0xc]
call fcn.00438950
test eax, eax
je 0x438067
inc dword [eax + 0x14]
mov eax, dword [sym.imp.vcl140.bpl__Forms_Application]
mov eax, dword [eax]
cmp dword [eax + 0x44], 0
je 0x438098
mov edx, 0x438150
mov eax, dword [ebp - 0x14]
call sub.rtl140.bpl__Sysutils_Supports_qqrpx14System_TObjectrx5_GUID
test al, al
jne 0x438098
lea eax, [ebp - 0x24]
call sub.BaseCtrl.bpl__Ubaseintf_Chinese_qqrv
mov eax, dword [ebp - 0x24]
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x24]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4380b5
mov eax, dword [ebp - 0xc]
call fcn.004394dc
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4380ec
lea eax, [ebp - 0x24]
call sub.rtl140.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x20]
mov edx, 3
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret