Function at 0x6ca38c
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffec
xor ecx, ecx
mov dword [ebp - 0x14], ecx
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 0x6ca56f
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x120]
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
push eax
lea eax, [ebp - 0x14]
mov ecx, dword [ebp - 8]
mov edx, 0x6ca588
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x14]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jne 0x6ca4d2
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, 0x6ca5d8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x6ca650
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, 0x6ca66c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6ca6f8
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xc]
call sub.dbrtl260.bpl__Data_Db_TParam_SetAsInteger_qqrxi
mov edx, 0x6ca70c
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
call sub.dbrtl260.bpl__Data_Db_TParam_SetAsString_qqrx20System_UnicodeString
mov edx, 0x6ca724
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0xa14]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x34c]
jmp 0x6ca549
mov edx, 0x6ca6f8
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, 0x6ca73c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6ca70c
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 8]
call sub.dbrtl260.bpl__Data_Db_TParam_SetAsString_qqrx20System_UnicodeString
mov edx, 0x6ca724
mov eax, dword [ebp - 0x10]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0xa14]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x34c]
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6ca576
lea eax, [ebp - 0x14]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 8]
call sub.rtl260.bpl__System__UStrClr_qqrpv
ret