Function at 0x6e0ae8
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x13
push 0
push 0
dec ecx
jne 0x6e0af0
push ecx
mov dword [ebp - 4], eax
lea eax, [ebp - 0x50]
mov edx, dword [0x6ab388]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
lea eax, [ebp - 0x2c]
mov edx, dword [0x6ab3ec]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x6e11ad
push dword fs:[eax]
mov dword fs:[eax], esp
mov dword [ebp - 0x10], 0xffffffff
mov dword [ebp - 8], 0xffffffff
cmp dword [ebp - 0x10], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6e10fb
call fcn.006e7910
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x14]
mov eax, 0x6e11cc
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
lea edx, [ebp - 0x2c]
mov eax, dword [ebp - 4]
call fcn.006e1e68
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0x28]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x24]
mov edx, 0x6e11f0
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 - 0x30], eax
mov eax, dword [ebp - 0x30]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e1214
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e125c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e1290
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e13c4
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e14b8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
push eax
push 0x6e1514
push dword [ebp - 0x18]
push 0x6e15b4
lea eax, [ebp - 0x54]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x54]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e15c8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e162c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e166c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e168c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e13c4
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e14b8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
push eax
push 0x6e1514
push dword [ebp - 0x18]
push 0x6e15b4
lea eax, [ebp - 0x58]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x58]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e15c8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e17c0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e1804
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6e1860
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x68]
mov eax, dword [ebp - 4]
fild dword [eax + 0xa0c]
fstp qword [ebp - 0x60]
wait
push dword [ebp - 0x5c]
push dword [ebp - 0x60]
mov edx, 0x6e187c
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 4
je 0x6e0d5e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 5
jne 0x6e0df5
lea edx, [ebp - 0x68]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x470]
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_GetText_qqrv
mov eax, dword [ebp - 0x68]
lea edx, [ebp - 0x64]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x64]
call sub.rtl260.bpl__System__UStrLen_qqrx20System_UnicodeString
cmp eax, 0xa
jne 0x6e0dbc
lea edx, [ebp - 0x70]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x470]
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_GetText_qqrv
mov eax, dword [ebp - 0x70]
lea edx, [ebp - 0x6c]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x6c]
push eax
mov edx, 0x6e1890
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
jmp 0x6e0e2c
mov eax, dword [ebp - 0x14]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fsub dword [0x6e18a4]
fstp qword [ebp - 0x60]
wait
push dword [ebp - 0x5c]
push dword [ebp - 0x60]
lea eax, [ebp - 0x74]
call sub.rtl260.bpl__System_Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x74]
push eax
mov edx, 0x6e1890
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
jmp 0x6e0e2c
mov eax, dword [ebp - 0x14]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fsub dword [0x6e18a4]
fstp qword [ebp - 0x60]
wait
push dword [ebp - 0x5c]
push dword [ebp - 0x60]
lea eax, [ebp - 0x78]
call sub.rtl260.bpl__System_Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x78]
push eax
mov edx, 0x6e1890
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x6e18b4
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
lea edx, [ebp - 0x7c]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0x7c]
push eax
mov edx, 0x6e18d0
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x30]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x6e18ec
mov eax, dword [ebp - 0x30]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x80]
mov ecx, dword [eax]
call dword [ecx + 0x88]
cmp dword [ebp - 0x80], 0
jne 0x6e0eb9
mov eax, dword [ebp - 0x14]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fsub dword [0x6e18a4]
fstp qword [ebp - 0x60]
wait
push dword [ebp - 0x5c]
push dword [ebp - 0x60]
lea eax, [ebp - 0x24]
call sub.rtl260.bpl__System_Sysutils_DateToStr_qqrx16System_TDateTime
jmp 0x6e0ed1
mov edx, 0x6e18ec
mov eax, dword [ebp - 0x30]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 4
je 0x6e0efd
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 5
jne 0x6e0f6a
mov edx, 0x6e18ec
mov eax, dword [ebp - 0x30]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x84]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x84]
push eax
lea edx, [ebp - 0x8c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x470]
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_GetText_qqrv
mov eax, dword [ebp - 0x8c]
lea edx, [ebp - 0x88]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x88]
pop eax
call sub.rtl260.bpl__System__UStrEqual_qqrv
je 0x6e0f6a
mov edx, 0x6e18ec
mov eax, dword [ebp - 0x30]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 4
jne 0x6e0fc6
lea edx, [ebp - 0x94]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x470]
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_GetText_qqrv
mov eax, dword [ebp - 0x94]
lea edx, [ebp - 0x90]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x90]
call sub.rtl260.bpl__System__UStrLen_qqrx20System_UnicodeString
cmp eax, 0xa
jl 0x6e0fc6
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x470]
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_GetText_qqrv
cmp dword [ebp - 0x1c], 0
je 0x6e0fd7
lea eax, [ebp - 0x24]
mov edx, dword [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
push 0x6e1904
lea eax, [ebp - 0x50]
push eax
mov ecx, dword [ebp - 0x14]
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 4]
call fcn.006e2fe0
lea eax, [ebp - 0x20]
mov edx, dword [ebp - 0x24]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp - 0x20], 0
jne 0x6e100b
mov dword [ebp - 8], 0xffffffff
jmp 0x6e10fb
cmp dword [ebp - 0x50], 2
je 0x6e1017
cmp dword [ebp - 0x50], 3
jne 0x6e1089
mov eax, dword [ebp - 0x48]
push eax
push 0x6e1914
mov eax, dword [ebp - 0x2c]
push eax
lea eax, [ebp - 0x98]
push eax
mov ecx, dword [ebp - 0x4c]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 4]
call fcn.006e2504
mov eax, dword [ebp - 0x98]
call sub.rtl260.bpl__System_Sysutils_StrToInt_qqrx20System_UnicodeString
mov dword [ebp - 0xc], eax
inc dword [ebp - 0xc]
cmp dword [ebp - 0xc], 4
jle 0x6e10fb
xor eax, eax
mov dword [ebp - 8], eax
push 0x6e1934
push dword [ebp - 0x4c]
push 0x6e1990
push dword [ebp - 0x48]
push 0x6e19a4
mov eax, dword [ebp - 4]
add eax, 0xa6c
mov edx, 5
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov dword [ebp - 8], 0xffffffff
jmp 0x6e10fb
cmp dword [ebp - 0x50], 4
jl 0x6e10fb
mov eax, dword [ebp - 0x48]
push eax
push 0x6e1914
mov eax, dword [ebp - 0x2c]
push eax
lea eax, [ebp - 0x9c]
push eax
mov ecx, dword [ebp - 0x4c]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 4]
call fcn.006e2504
mov eax, dword [ebp - 0x9c]
call sub.rtl260.bpl__System_Sysutils_StrToInt_qqrx20System_UnicodeString
mov dword [ebp - 0xc], eax
inc dword [ebp - 0xc]
cmp dword [ebp - 0xc], 2
jle 0x6e10fb
xor eax, eax
mov dword [ebp - 8], eax
push 0x6e19d4
push dword [ebp - 0x4c]
push 0x6e1990
push dword [ebp - 0x48]
push 0x6e1a30
mov eax, dword [ebp - 4]
add eax, 0xa6c
mov edx, 5
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov dword [ebp - 8], 0xffffffff
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6e11b7
lea eax, [ebp - 0x9c]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x94]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x90]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x8c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x88]
mov edx, 6
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x70]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x6c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x68]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x64]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x58]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x50]
mov edx, dword [0x6ab388]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x44]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x2c]
mov edx, dword [0x6ab3ec]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x24]
mov edx, 5
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret