Function at 0x6dc91c
Capabilities:
Copy file
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0xc
push 0
push 0
dec ecx
jne 0x6dc925
xchg dword [ebp - 4], ecx
push ebx
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x6dccb3
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp + 8]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 8]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 4]
call fcn.006dd614
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0xd4]
mov dword [ebp - 0x20], eax
mov eax, dword [ebp - 0x20]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x20]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x20]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6dccd0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6dcd58
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
push eax
lea eax, [ebp - 0x24]
mov edx, dword [ebp - 0xc]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov edx, dword [ebp - 0x24]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x20]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x6dcc3e
mov edx, 0x6dcd70
mov eax, dword [ebp - 0x20]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0x10], eax
cmp dword [ebp - 0x10], 0
jle 0x6dca51
lea eax, [ebp - 0x2c]
mov ecx, 0x6dcd88
mov edx, dword [ebp - 8]
call sub.rtl260.bpl__System__LStrCat3_qqrr27System__AnsiStringT_us_i0__x27System__AnsiStringT_us_i0__t2
mov edx, dword [ebp - 0x2c]
lea eax, [ebp - 0x28]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
lea eax, [ebp - 0x28]
push eax
lea edx, [ebp - 0x30]
mov eax, dword [ebp - 0x10]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x30]
pop eax
call sub.rtl260.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, dword [ebp - 0x28]
lea eax, [ebp - 8]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
jmp 0x6dca5c
lea eax, [ebp - 8]
mov edx, dword [ebp - 8]
call sub.rtl260.bpl__System__LStrLAsg_qqrr27System__AnsiStringT_us_i0__x27System__AnsiStringT_us_i0__
push dword [ebp - 0x14]
push 0x6dcd98
lea eax, [ebp - 0x38]
mov edx, dword [ebp - 8]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
push dword [ebp - 0x38]
push 0x6dcda8
lea eax, [ebp - 0x34]
mov edx, 4
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x34]
mov eax, dword [0x730a90]
mov eax, dword [eax]
call fcn.00661a98
fld dword [0x6dcdb4]
fucompp
wait
fnstsw ax
sahf
jae 0x6dcc18
push dword [ebp - 0x14]
push 0x6dcd98
push dword [ebp - 0x18]
push 0x6dcdc4
lea edx, [ebp - 0x40]
mov eax, dword [ebp - 0x10]
inc eax
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x40]
push 0x6dcda8
lea eax, [ebp - 0x3c]
mov edx, 6
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x3c]
mov dl, 1
call sub.rtl260.bpl__System_Sysutils_FileExists_qqrx20System_UnicodeStringo
test al, al
jne 0x6dcc3e
push 0
push dword [ebp - 0x14]
push 0x6dcd98
push dword [ebp - 0x18]
push 0x6dcdc4
lea edx, [ebp - 0x48]
mov eax, dword [ebp - 0x10]
inc eax
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x48]
push 0x6dcda8
lea eax, [ebp - 0x44]
mov edx, 6
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x44]
call sub.rtl260.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x6dcdd4
push dword [ebp - 0x18]
push 0x6dcda8
lea eax, [ebp - 0x4c]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x4c]
call sub.rtl260.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CopyFileW
test eax, eax
je 0x6dcc3e
mov eax, dword [ebp - 0x20]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x20]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x20]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6dce04
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6dcd58
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
push eax
lea eax, [ebp - 0x50]
mov edx, dword [ebp - 0xc]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov edx, dword [ebp - 0x50]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x48]
lea edx, [ebp - 0x54]
mov eax, dword [ebp - 0x10]
inc eax
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0x54]
push eax
mov edx, 0x6dcd70
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x6dce90
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, 0x6dceac
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x4a0]
push dword [ebp - 0x18]
push 0x6dcdc4
lea edx, [ebp - 0x5c]
mov eax, dword [ebp - 0x10]
inc eax
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
push dword [ebp - 0x5c]
push 0x6dcda8
lea eax, [ebp - 0x58]
mov edx, 4
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x58]
lea edx, [ebp - 0x1c]
call sub.rtl260.bpl__System_Sysutils_AnsiUpperCase_qqrx20System_UnicodeString
jmp 0x6dcc3e
lea eax, [ebp - 0x64]
mov ecx, 0x6dcebc
mov edx, dword [ebp - 8]
call sub.rtl260.bpl__System__LStrCat3_qqrr27System__AnsiStringT_us_i0__x27System__AnsiStringT_us_i0__t2
mov edx, dword [ebp - 0x64]
lea eax, [ebp - 0x60]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov eax, dword [ebp - 0x60]
lea edx, [ebp - 0x1c]
call sub.rtl260.bpl__System_Sysutils_AnsiUpperCase_qqrx20System_UnicodeString
cmp dword [ebp - 0x1c], 0
jne 0x6dcc56
mov eax, dword [ebp + 8]
mov ecx, 0x6dcda8
mov edx, dword [ebp - 0x18]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
jmp 0x6dcc61
mov eax, dword [ebp + 8]
mov edx, dword [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6dccba
lea eax, [ebp - 0x64]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x60]
mov edx, 0xd
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x2c]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x28]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc]
mov edx, 2
call sub.rtl260.bpl__System__LStrArrayClr_qqrpvi
ret