Function at 0x6c9bb4
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 9
push 0
push 0
dec ecx
jne 0x6c9bbc
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x6c9fff
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [0x731064]
cmp dword [eax], 1
sbb eax, eax
inc eax
test al, al
jne 0x6c9e1e
lea eax, [ebp - 0xc]
mov edx, 0x6ca018
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0xd4]
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6ca02c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x6c9cf7
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6ca094
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x18]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6ca0c0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6ca110
mov eax, dword [ebp - 0x18]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x6c9cd0
mov edx, 0x6ca128
mov eax, dword [ebp - 0x18]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x88]
jmp 0x6c9d04
lea eax, [ebp - 0x10]
push eax
mov ecx, 0x6ca144
mov edx, 0x6ca154
mov eax, dword [0x751e4c]
call fcn.006dc91c
lea eax, [ebp - 0xc]
mov edx, 0x6ca168
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x6c9d04
lea eax, [ebp - 0x10]
mov edx, 0x6ca17c
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x680]
mov edx, dword [eax]
call dword [edx + 0x4c]
cmp al, 1
jne 0x6c9d38
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x684]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x680]
call sub.dbrtl260.bpl__Data_Db_TCustomConnection_Close_qqrv
mov eax, dword [0x730ee0]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6c9da8
lea edx, [ebp - 0x30]
mov eax, dword [ebp - 4]
call fcn.006dd614
push dword [ebp - 0x30]
push 0x6ca1a0
push dword [ebp - 0x10]
lea eax, [ebp - 0x2c]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x2c]
mov eax, dword [ebp - 0x10]
call fcn.00701888
mov edx, dword [0x730994]
mov edx, dword [edx]
lea eax, [ebp - 0x38]
mov ecx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x38]
lea eax, [ebp - 0x34]
call sub.rtl260.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0x34]
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x680]
call sub.adortl260.bpl__Data_Win_Adodb_TADOConnection_SetConnectionString_qqrx17System_WideString
jmp 0x6c9dee
push 0x6ca1b0
lea edx, [ebp - 0x44]
mov eax, dword [ebp - 4]
call fcn.006dd614
push dword [ebp - 0x44]
push 0x6ca1a0
push dword [ebp - 0x10]
lea eax, [ebp - 0x40]
mov edx, 4
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x40]
lea eax, [ebp - 0x3c]
call sub.rtl260.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0x3c]
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x680]
call sub.adortl260.bpl__Data_Win_Adodb_TADOConnection_SetConnectionString_qqrx17System_WideString
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x680]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x5c]
mov eax, dword [0x751e4c]
mov edx, dword [eax + 0x680]
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x684]
mov ecx, dword [eax]
call dword [ecx + 0x344]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x684]
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x1c]
call sub.adortl260.bpl__Data_Win_Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x1c]
call sub.adortl260.bpl__Data_Win_Adodb_TADOQuery_GetSQL_qqrv
push eax
lea eax, [ebp - 0x48]
mov ecx, dword [ebp - 8]
mov edx, 0x6ca218
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x48]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jne 0x6c9e82
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Append_qqrv
jmp 0x6c9e8a
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Edit_qqrv
mov edx, 0x6ca268
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x108]
mov edx, 0x6ca280
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0xa14]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x31c]
mov edx, 0x6ca298
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [0x731064]
cmp dword [eax], 1
sbb eax, eax
inc eax
test al, al
jne 0x6c9f0f
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x684]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [0x751e4c]
mov eax, dword [eax + 0x680]
call sub.dbrtl260.bpl__Data_Db_TCustomConnection_Close_qqrv
mov eax, dword [ebp - 0xc]
mov edx, 0x6ca168
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x6c9fb2
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, 0x6ca2ac
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x20]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6ca320
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6ca268
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x6ca384
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x6ca128
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x20]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6ca006
lea eax, [ebp - 0x48]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x3c]
call sub.rtl260.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x38]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x34]
call sub.rtl260.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x30]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x14]
mov edx, 4
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret