Function at 0x5311ec
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0xb
push 0
push 0
dec ecx
jne 0x5311f5
push ecx
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 - 0xc]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0x10]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0xc]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 8]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x531653
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp + 8]
mov edx, 0x531670
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x531464
lea edx, [ebp - 0x28]
mov eax, dword [ebp - 4]
call fcn.005310b0
push dword [ebp + 0x10]
push 0x531684
push dword [ebp + 0xc]
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x3c]
mov eax, 0x531694
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov ecx, dword [ebp - 0x3c]
lea eax, [ebp - 0x10]
mov edx, 0x5316b4
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
push dword [ebp - 0x28]
push 0x5316d0
push dword [ebp - 0x10]
lea eax, [ebp - 0x14]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
push dword [ebp - 0x14]
push 0x5316d0
push dword [ebp - 0x1c]
lea eax, [ebp - 0x18]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x28]
call sub.vclx260.bpl__Vcl_Filectrl_DirectoryExists_qqrx20System_UnicodeString
test al, al
jne 0x531303
mov eax, dword [ebp - 0x28]
call sub.rtl260.bpl__System_Sysutils_CreateDir_qqrx20System_UnicodeString
test al, al
jne 0x531303
lea eax, [ebp - 0x40]
mov ecx, 0x5316e0
mov edx, dword [ebp - 0x28]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x40]
mov dl, 1
mov eax, dword [sym.imp.rtl260.bpl__System_Sysutils_Exception_]
call sub.rtl260.bpl__System_Sysutils_Exception__bctr_qqrx20System_UnicodeString
call sub.rtl260.bpl__System__RaiseExcept_qqrv
lea eax, [ebp - 0x44]
mov ecx, 0x531710
mov edx, dword [ebp - 0x28]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x44]
call sub.vclx260.bpl__Vcl_Filectrl_DirectoryExists_qqrx20System_UnicodeString
test al, al
jne 0x53135f
lea eax, [ebp - 0x48]
mov ecx, 0x531710
mov edx, dword [ebp - 0x28]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x48]
call sub.rtl260.bpl__System_Sysutils_CreateDir_qqrx20System_UnicodeString
test al, al
jne 0x53135f
lea eax, [ebp - 0x4c]
mov ecx, 0x53172c
mov edx, dword [ebp - 0x28]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x4c]
mov dl, 1
mov eax, dword [sym.imp.rtl260.bpl__System_Sysutils_Exception_]
call sub.rtl260.bpl__System_Sysutils_Exception__bctr_qqrx20System_UnicodeString
call sub.rtl260.bpl__System__RaiseExcept_qqrv
mov eax, dword [ebp - 0x14]
call sub.vclx260.bpl__Vcl_Filectrl_DirectoryExists_qqrx20System_UnicodeString
test al, al
jne 0x53139b
mov eax, dword [ebp - 0x14]
call sub.rtl260.bpl__System_Sysutils_CreateDir_qqrx20System_UnicodeString
test al, al
jne 0x53139b
lea eax, [ebp - 0x50]
mov ecx, 0x5316e0
mov edx, dword [ebp - 0x14]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x50]
mov dl, 1
mov eax, dword [sym.imp.rtl260.bpl__System_Sysutils_Exception_]
call sub.rtl260.bpl__System_Sysutils_Exception__bctr_qqrx20System_UnicodeString
call sub.rtl260.bpl__System__RaiseExcept_qqrv
lea eax, [ebp - 0x20]
mov ecx, 0x531768
mov edx, dword [ebp - 0x18]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov dl, 1
mov eax, dword [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_FileExists_qqrx20System_UnicodeStringo
test al, al
je 0x5313c1
mov eax, dword [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_DeleteFile_qqrx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1d0]
mov edx, dword [ebp - 0x20]
call sub.vcl260.bpl__Vcl_Graphics_TPicture_SaveToFile_qqrx20System_UnicodeString
lea eax, [ebp - 0x24]
mov ecx, 0x531780
mov edx, dword [ebp - 0x18]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov dl, 1
mov eax, dword [sym.imp.vcl260.bpl__Vcl_Graphics_TBitmap_]
call sub.vcl260.bpl__Vcl_Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x2c], eax
mov dl, 1
mov eax, dword [sym.imp.vclimg260.bpl__Vcl_Imaging_Jpeg_TJPEGImage_]
call sub.vclimg260.bpl__Vcl_Imaging_Jpeg_TJPEGImage__bctr_qqrv
mov dword [ebp - 0x30], eax
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov edx, dword [ebp - 0x2c]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 8]
mov dl, 1
mov eax, dword [ebp - 0x24]
call sub.rtl260.bpl__System_Sysutils_FileExists_qqrx20System_UnicodeStringo
test al, al
je 0x53142c
mov eax, dword [ebp - 0x24]
call sub.rtl260.bpl__System_Sysutils_DeleteFile_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x2c]
call sub.rtl260.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x30]
call sub.rtl260.bpl__System_TObject_Free_qqrv
mov dl, 1
mov eax, dword [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_FileExists_qqrx20System_UnicodeStringo
test al, al
je 0x53145d
mov eax, dword [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_DeleteFile_qqrx20System_UnicodeString
xor eax, eax
mov dword [ebp - 0x34], eax
jmp 0x53147e
lea eax, [ebp - 0x10]
mov edx, 0x531798
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x1c]
mov edx, 0x5317cc
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x38], eax
mov eax, dword [ebp - 0x38]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x38]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x38]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5317e4
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_StrToFloat_qqrx20System_UnicodeString
fstp qword [ebp - 0x58]
wait
push dword [ebp - 0x54]
push dword [ebp - 0x58]
mov edx, 0x531854
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x38]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x531868
mov eax, dword [ebp - 0x38]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0x34], eax
mov eax, dword [ebp - 0x38]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x38]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
cmp dword [ebp - 0x34], 0
jle 0x531585
mov eax, dword [ebp - 0x38]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x53187c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x531940
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x53195c
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
push eax
lea eax, [ebp - 0x5c]
mov ecx, 0x531780
mov edx, dword [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x5c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_StrToFloat_qqrx20System_UnicodeString
fstp qword [ebp - 0x58]
wait
push dword [ebp - 0x54]
push dword [ebp - 0x58]
mov edx, 0x531854
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
jmp 0x531609
mov eax, dword [ebp - 0x38]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x531978
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x38]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5319ec
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x531940
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x53195c
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
push eax
lea eax, [ebp - 0x60]
mov ecx, 0x531780
mov edx, dword [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x60]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_StrToFloat_qqrx20System_UnicodeString
fstp qword [ebp - 0x58]
wait
push dword [ebp - 0x54]
push dword [ebp - 0x58]
mov edx, 0x531854
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x38]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x53165a
lea eax, [ebp - 0x60]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x50]
mov edx, 6
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x28]
mov edx, 8
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp + 8]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret