Function at 0x6ff1b4
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 7
push 0
push 0
dec ecx
jne 0x6ff1bc
push ebx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x6ff3ec
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov dword [ebp - 8], eax
mov dl, 1
mov eax, dword [sym.imp.rtl260.bpl__System_Classes_TStringList_]
call sub.rtl260.bpl__System_Classes_TStringList__bctr_qqrv
mov dword [ebp - 0x18], eax
lea eax, [ebp - 0x24]
mov edx, dword [ebp - 4]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x24]
lea edx, [ebp - 0x10]
call fcn.006fdb00
mov al, byte [0x6ff3fc]
push eax
lea eax, [ebp - 0x28]
push eax
xor ecx, ecx
mov edx, 0x6ff40c
mov eax, dword [ebp - 0x10]
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov edx, dword [ebp - 0x28]
lea eax, [ebp - 0x10]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov al, byte [0x6ff3fc]
push eax
lea eax, [ebp - 0x2c]
push eax
xor ecx, ecx
mov edx, 0x6ff41c
mov eax, dword [ebp - 0x10]
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov edx, dword [ebp - 0x2c]
lea eax, [ebp - 0x10]
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 - 0x1c], eax
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x1c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x1c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6ff42c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x6ff4f4
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
test eax, eax
jne 0x6ff2b3
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System_TObject_Free_qqrv
jmp 0x6ff3b4
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x1c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x1c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6ff518
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x6ff574
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x6ff3ac
inc eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x14], 0
lea ecx, [ebp - 0xc]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov al, byte [0x6ff3fc]
push eax
lea eax, [ebp - 0x34]
push eax
xor ecx, ecx
mov edx, 0x6ff40c
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov edx, dword [ebp - 0x34]
lea eax, [ebp - 0xc]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov al, byte [0x6ff3fc]
push eax
lea eax, [ebp - 0x38]
push eax
xor ecx, ecx
mov edx, 0x6ff41c
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_StringReplace_qqrx20System_UnicodeStringt1t162System__Set_35System_Sysutils_System_Sysutils__8
mov edx, dword [ebp - 0x38]
lea eax, [ebp - 0xc]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x6ff3a4
mov dword [ebp - 8], 1
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System_TObject_Free_qqrv
jmp 0x6ff3b4
inc dword [ebp - 0x14]
dec dword [ebp - 0x20]
jne 0x6ff330
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System_TObject_Free_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6ff3f3
lea eax, [ebp - 0x38]
mov edx, 5
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x24]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl260.bpl__System__UStrClr_qqrpv
ret