Function at 0x6eec14
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x6eec1c
push ecx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x6eee4d
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov edx, 0x6eee68
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
push dword [ebp + 0xc]
push dword [ebp + 8]
lea edx, [ebp - 0xc]
mov eax, 0x6eee78
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
call fcn.006ef040
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 8]
mov eax, 0x6eee9c
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
lea eax, [ebp - 0x10]
push eax
mov ecx, 4
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
lea eax, [ebp - 0x14]
push eax
mov ecx, 2
mov edx, 6
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
lea eax, [ebp - 0x18]
push eax
mov ecx, 2
mov edx, 9
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x80]
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, 0x6eeebc
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6eef5c
mov eax, dword [ebp - 0x1c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x6eef74
mov eax, dword [ebp - 0x1c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x6eef8c
mov eax, dword [ebp - 0x1c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x6eefa0
mov eax, dword [ebp - 0x1c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x20]
mov edx, 0x6eefb8
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x6eed67
mov eax, dword [ebp - 4]
mov edx, 0x6eefc8
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x6eee25
push dword [ebp + 0xc]
push dword [ebp + 8]
call sub.rtl260.bpl__System_Sysutils_DayOfWeek_qqrx16System_TDateTime
dec ax
je 0x6eedaa
sub ax, 6
jne 0x6eedb9
mov eax, dword [ebp - 8]
mov edx, 0x6eefd8
call sub.rtl260.bpl__System__UStrCmp_qqrv
jae 0x6eed9b
mov eax, dword [ebp - 8]
mov edx, 0x6eeff8
call sub.rtl260.bpl__System__UStrCmp_qqrv
ja 0x6eede4
mov eax, dword [ebp - 4]
mov edx, 0x6eefb8
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x6eede4
mov eax, dword [ebp - 4]
mov edx, 0x6eefc8
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x6eede4
mov eax, dword [ebp - 8]
mov edx, 0x6ef018
call sub.rtl260.bpl__System__UStrCmp_qqrv
jae 0x6eedd7
mov eax, dword [ebp - 8]
mov edx, 0x6eeff8
call sub.rtl260.bpl__System__UStrCmp_qqrv
ja 0x6eede4
mov eax, dword [ebp - 4]
mov edx, 0x6eefb8
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [0x730de8]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6eee25
lea eax, [ebp - 0x24]
push eax
mov ecx, 2
mov edx, 1
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x24]
mov edx, 0x6ef038
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x6eee25
mov eax, dword [ebp - 4]
mov edx, 0x6eee68
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6eee54
lea eax, [ebp - 0x24]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x18]
mov edx, 5
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret