Function at 0x6d78e0
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x2f
push 0
push 0
dec ecx
jne 0x6d78e8
push ecx
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x6d817a
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 5], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48c]
mov edx, dword [eax]
call dword [edx + 0x130]
test eax, eax
je 0x6d79a3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48c]
mov edx, dword [eax]
call dword [edx + 0x130]
dec eax
je 0x6d79a3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48c]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 2
je 0x6d79a3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48c]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 3
je 0x6d79a3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48c]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 5
je 0x6d79a3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48c]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 6
je 0x6d79a3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x48c]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 7
jne 0x6d79c6
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4b0]
xor edx, edx
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4b0]
add eax, 0x90
call sub.rtl260.bpl__System__UStrClr_qqrpv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 4
je 0x6d7a05
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 5
je 0x6d7a05
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x470]
mov edx, 0x6d819c
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
call fcn.006d9c9c
test al, al
je 0x6d80b0
mov eax, dword [ebp - 4]
call fcn.006d83b8
xor eax, eax
push ebp
push 0x6d805e
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x68]
mov edx, dword [eax]
call dword [edx + 0x16c]
mov eax, dword [ebp - 4]
cmp byte [eax + 0xa04], 1
jne 0x6d7f16
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9ec]
mov eax, dword [eax]
call fcn.00443eb8
mov edx, dword [ebp - 4]
mov dword [edx + 0x8d0], eax
lea edx, [ebp - 0x1c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x1c]
lea edx, [ebp - 0x18]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x18]
mov edx, 0x6d81c0
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x6d7ae2
mov eax, dword [0x7309bc]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6d7ac1
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 4]
call fcn.006df794
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x6d7baf
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 4]
call fcn.006da350
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x6d7baf
mov eax, dword [0x730b60]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6d7baf
mov eax, dword [0x730c24]
cmp dword [eax], 1
sbb eax, eax
inc eax
test al, al
jne 0x6d7baf
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 0xc]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0xc]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0xc]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6d81d0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
lea edx, [ebp - 0x2c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x2c]
lea edx, [ebp - 0x28]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x28]
push eax
mov edx, 0x6d822c
mov eax, dword [ebp - 0xc]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0xc]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x6d7ba7
mov edx, 0x6d8240
mov al, 4
call fcn.006efbe4
mov eax, dword [ebp - 0xc]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6d80b0
mov eax, dword [ebp - 0xc]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [0x7309dc]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6d7cb0
mov eax, dword [0x730c24]
cmp dword [eax], 1
sbb eax, eax
inc eax
test al, al
jne 0x6d7cb0
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
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.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x10]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x6d8284
mov ecx, dword [eax]
call dword [ecx + 0x3c]
lea edx, [ebp - 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x69c]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x38]
lea edx, [ebp - 0x34]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
push dword [ebp - 0x34]
push 0x6d8324
lea edx, [ebp - 0x40]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x6a0]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x40]
lea edx, [ebp - 0x3c]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
push dword [ebp - 0x3c]
lea eax, [ebp - 0x30]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x30]
push eax
mov edx, 0x6d8334
mov eax, dword [ebp - 0x10]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
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
jle 0x6d7ca8
mov edx, 0x6d834c
mov al, 4
call fcn.006efbe4
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
jmp 0x6d80b0
mov eax, dword [ebp - 0x10]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
lea edx, [ebp - 0x44]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x44]
mov eax, dword [ebp - 4]
add eax, 0x8d4
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x914]
mov edx, dword [ebp - 4]
cmp eax, dword [edx + 0x8d0]
jne 0x6d7cfe
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8d0]
mov edx, dword [ebp - 4]
mov dword [edx + 0x914], eax
jmp 0x6d7d10
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x914]
mov edx, dword [ebp - 4]
mov dword [edx + 0x914], eax
lea edx, [ebp - 0x48]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c8]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 4]
add eax, 0x910
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea edx, [ebp - 0x4c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7d0]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x4c]
mov eax, dword [ebp - 4]
add eax, 0x92c
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8d0]
mov edx, dword [ebp - 4]
mov dword [edx + 0x9d0], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8d0]
mov edx, dword [ebp - 4]
mov dword [edx + 0x980], eax
mov eax, dword [ebp - 4]
mov byte [eax + 0x93c], 0
mov eax, dword [ebp - 4]
lea edx, [eax + 0x8d0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9ec]
mov eax, dword [eax]
call fcn.00444348
mov eax, dword [ebp - 4]
mov word [eax + 0x9d4], 0x3001
mov eax, dword [ebp - 4]
lea edx, [eax + 0x9cc]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9f0]
mov eax, dword [eax]
call fcn.00448e9c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9f4]
mov eax, dword [eax]
call fcn.0044d1f8
call sub.rtl260.bpl__System__TRUNC_qqrv
mov edx, dword [ebp - 4]
mov dword [edx + 0x978], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
lea edx, [ebp - 0x150]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x150]
lea eax, [ebp - 0x14c]
mov ecx, 0xff
call sub.rtl260.bpl__System__UStrToString_qqrp29System__SmallString_uc_i255__x20System_UnicodeStringi
lea edx, [ebp - 0x14c]
mov eax, dword [ebp - 4]
add eax, 0x986
mov cl, 1
call sub.rtl260.bpl__System__PStrNCpy_qqrp29System__SmallString_uc_i255__t1uc
lea edx, [ebp - 0x158]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x740]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x158]
lea edx, [ebp - 0x154]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x154]
mov eax, dword [ebp - 4]
add eax, 0x9bc
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea edx, [ebp - 0x160]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x744]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x160]
lea edx, [ebp - 0x15c]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x15c]
mov eax, dword [ebp - 4]
add eax, 0x9c4
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 4]
lea edx, [eax + 0x978]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9f4]
mov eax, dword [eax]
call fcn.0044bd74
mov eax, dword [ebp - 4]
mov byte [eax + 0xa04], 5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8d0]
mov edx, dword [ebp - 4]
mov dword [edx + 0xa00], eax
mov eax, dword [0x730af0]
cmp dword [eax], 0
je 0x6d803e
mov eax, dword [ebp - 4]
cmp dword [eax + 0xa00], 0
jle 0x6d803e
mov eax, dword [ebp - 4]
fldz
fld qword [eax + 0xa38]
fucompp
wait
fnstsw ax
sahf
jp 0x6d7f09
jbe 0x6d803e
mov eax, dword [ebp - 4]
call fcn.006b80d4
jmp 0x6d803e
lea edx, [ebp - 0x164]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c8]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x164]
mov eax, dword [ebp - 4]
add eax, 0x910
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea edx, [ebp - 0x168]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7d0]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x168]
mov eax, dword [ebp - 4]
add eax, 0x92c
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea edx, [ebp - 0x170]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x170]
lea edx, [ebp - 0x16c]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x16c]
mov edx, 0x6d81c0
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x6d7ff3
lea edx, [ebp - 0x174]
mov eax, dword [ebp - 4]
call fcn.006da350
mov edx, dword [ebp - 0x174]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea edx, [ebp - 0x178]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x538]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x178]
mov eax, dword [ebp - 4]
add eax, 0x8d4
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 4]
lea edx, [eax + 0x8d0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9ec]
mov eax, dword [eax]
call fcn.00444b10
mov eax, dword [ebp - 4]
lea edx, [eax + 0x9cc]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9f0]
mov eax, dword [eax]
call fcn.00448818
mov eax, dword [ebp - 4]
lea edx, [eax + 0x978]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x9f4]
mov eax, dword [eax]
call fcn.00449670
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x68]
mov edx, dword [eax]
call dword [edx + 0x170]
mov byte [ebp - 5], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6d80b0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6d8184
lea eax, [ebp - 0x17c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x178]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x174]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x170]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x16c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x168]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x15c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x158]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x154]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x4c]
mov edx, 4
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x3c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x38]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x34]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x2c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x28]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x18]
call sub.rtl260.bpl__System__UStrClr_qqrpv
ret