Function at 0x6e5ac0
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0xd
push 0
push 0
dec ecx
jne 0x6e5ac8
push ecx
push ebx
push esi
push edi
mov dword [ebp - 4], eax
lea eax, [ebp - 0x3c]
mov edx, dword [0x6ab388]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x6e60cc
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x6e6049
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x3c]
mov eax, dword [ebp - 4]
call fcn.006e1a50
lea eax, [ebp - 0xc]
mov edx, dword [ebp - 0x38]
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 0x3c]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
cmp dword [ebp - 0xc], 0
je 0x6e603f
cmp dword [ebp - 0x14], 0
je 0x6e603f
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fadd dword [0x6e60dc]
fstp qword [ebp - 0x28]
wait
push dword [ebp - 0x24]
push dword [ebp - 0x28]
lea edx, [ebp - 0x10]
mov eax, 0x6e60ec
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
call fcn.006e7910
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 8]
mov eax, 0x6e60ec
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x30], eax
mov eax, dword [ebp - 0x14]
call sub.rtl260.bpl__System_Sysutils_StrToInt_qqrx20System_UnicodeString
cmp eax, 3
jle 0x6e603f
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, 0x6e6110
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e61c4
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x30]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6e6264
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6e62cc
mov eax, dword [ebp - 0x30]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x6e62ec
mov eax, dword [ebp - 0x30]
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 - 4]
fild dword [eax + 0xa0c]
fstp qword [ebp - 0x44]
wait
push dword [ebp - 0x40]
push dword [ebp - 0x44]
mov edx, 0x6e6308
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]
lea edx, [ebp - 0x48]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0x48]
push eax
mov edx, 0x6e631c
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, 0x6e6338
mov eax, dword [ebp - 0x30]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
inc eax
mov dword [ebp - 0x2c], eax
lea edx, [ebp - 0x18]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x470]
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_GetText_qqrv
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fadd dword [0x6e6340]
fstp qword [ebp - 0x44]
wait
push dword [ebp - 0x40]
push dword [ebp - 0x44]
lea eax, [ebp - 0x1c]
call sub.rtl260.bpl__System_Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fadd dword [0x6e6344]
fstp qword [ebp - 0x44]
wait
push dword [ebp - 0x40]
push dword [ebp - 0x44]
lea eax, [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fstp qword [ebp - 0x44]
wait
mov eax, dword [ebp - 0x1c]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fld qword [ebp - 0x44]
fucompp
wait
fnstsw ax
sahf
jp 0x6e5cef
jb 0x6e5df7
mov eax, dword [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fstp qword [ebp - 0x44]
wait
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fld qword [ebp - 0x44]
fucompp
wait
fnstsw ax
sahf
jp 0x6e5d14
jb 0x6e5df7
cmp dword [ebp - 0x2c], 3
jle 0x6e603f
mov eax, dword [0x730c24]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6e5dab
push 0x6e6354
lea edx, [ebp - 0x54]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
push dword [ebp - 0x54]
push 0x6e6378
push 0x6e63a4
push 0x6e63b4
push 0x6e63a4
push 0x6e63c8
push 0x6e63a4
push 0x6e63e8
push 0x6e63fc
lea eax, [ebp - 0x50]
mov edx, 0xa
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x50]
lea eax, [ebp - 0x4c]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov edx, dword [ebp - 0x4c]
mov eax, dword [0x730bd4]
mov eax, dword [eax]
mov eax, dword [eax + 0x42c]
mov eax, dword [eax + 0xa0]
call sub.rtl260.bpl__System_Win_Scktcomp_TCustomWinSocket_SendText_qqrx27System__AnsiStringT_us_i0__
jmp 0x6e603f
push 0x6e640c
push dword [ebp - 8]
push 0x6e649c
push dword [ebp - 0xc]
push 0x6e64b8
push dword [ebp - 0x10]
push 0x6e64cc
push dword [ebp - 0x14]
push 0x6e64dc
mov eax, dword [ebp - 4]
add eax, 0xa68
mov edx, 9
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0xa68]
mov al, 4
call fcn.006efbe4
jmp 0x6e603f
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fadd dword [0x6e64f4]
fstp qword [ebp - 0x44]
wait
push dword [ebp - 0x40]
push dword [ebp - 0x44]
lea eax, [ebp - 0x1c]
call sub.rtl260.bpl__System_Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fadd dword [0x6e64f8]
fstp qword [ebp - 0x44]
wait
push dword [ebp - 0x40]
push dword [ebp - 0x44]
lea eax, [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fstp qword [ebp - 0x44]
wait
mov eax, dword [ebp - 0x1c]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fld qword [ebp - 0x44]
fucompp
wait
fnstsw ax
sahf
jp 0x6e5e5c
jb 0x6e5f64
mov eax, dword [ebp - 0x20]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fstp qword [ebp - 0x44]
wait
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System_Sysutils_StrToDate_qqrx20System_UnicodeString
fld qword [ebp - 0x44]
fucompp
wait
fnstsw ax
sahf
jp 0x6e5e81
jb 0x6e5f64
cmp dword [ebp - 0x2c], 2
jle 0x6e603f
mov eax, dword [0x730c24]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6e5f18
push 0x6e6354
lea edx, [ebp - 0x60]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
push dword [ebp - 0x60]
push 0x6e6508
push 0x6e63a4
push 0x6e63b4
push 0x6e63a4
push 0x6e63c8
push 0x6e63a4
push 0x6e63e8
push 0x6e63fc
lea eax, [ebp - 0x5c]
mov edx, 0xa
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x5c]
lea eax, [ebp - 0x58]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov edx, dword [ebp - 0x58]
mov eax, dword [0x730bd4]
mov eax, dword [eax]
mov eax, dword [eax + 0x42c]
mov eax, dword [eax + 0xa0]
call sub.rtl260.bpl__System_Win_Scktcomp_TCustomWinSocket_SendText_qqrx27System__AnsiStringT_us_i0__
jmp 0x6e603f
push 0x6e6534
push dword [ebp - 8]
push 0x6e649c
push dword [ebp - 0xc]
push 0x6e64b8
push dword [ebp - 0x10]
push 0x6e64cc
push dword [ebp - 0x14]
push 0x6e65c8
mov eax, dword [ebp - 4]
add eax, 0xa68
mov edx, 9
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0xa68]
mov al, 4
call fcn.006efbe4
jmp 0x6e603f
cmp dword [ebp - 0x2c], 1
jle 0x6e603f
mov eax, dword [0x730c24]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6e5ff8
push 0x6e6354
lea edx, [ebp - 0x6c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x544]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
push dword [ebp - 0x6c]
push 0x6e65ec
push 0x6e63a4
push 0x6e63b4
push 0x6e63a4
push 0x6e63c8
push 0x6e63a4
push 0x6e63e8
push 0x6e63fc
lea eax, [ebp - 0x68]
mov edx, 0xa
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x68]
lea eax, [ebp - 0x64]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov edx, dword [ebp - 0x64]
mov eax, dword [0x730bd4]
mov eax, dword [eax]
mov eax, dword [eax + 0x42c]
mov eax, dword [eax + 0xa0]
call sub.rtl260.bpl__System_Win_Scktcomp_TCustomWinSocket_SendText_qqrx27System__AnsiStringT_us_i0__
jmp 0x6e603f
push 0x6e6618
push dword [ebp - 8]
push 0x6e649c
push dword [ebp - 0xc]
push 0x6e64b8
push dword [ebp - 0x10]
push 0x6e64cc
push dword [ebp - 0x14]
push 0x6e66a0
mov eax, dword [ebp - 4]
add eax, 0xa68
mov edx, 9
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0xa68]
mov al, 4
call fcn.006efbe4
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6e6053
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6e60d3
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__LStrClr_qqrpv
lea eax, [ebp - 0x60]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x5c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x58]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x54]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x50]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x4c]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x48]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x3c]
mov edx, dword [0x6ab388]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x20]
mov edx, 7
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret