Function at 0x65424c
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x61
push 0
push 0
dec ecx
jne 0x654254
push ecx
push ebx
push esi
push edi
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System__LStrAddRef_qqrpv
lea eax, [ebp - 0x98]
mov edx, dword [0x662e00]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
lea eax, [ebp - 0x170]
mov edx, dword [0x442e60]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
lea eax, [ebp - 0x1c4]
mov edx, dword [0x443920]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x654b5b
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x1d0]
mov edx, dword [ebp - 8]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov eax, dword [ebp - 0x1d0]
lea edx, [ebp - 0x1cc]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x1cc]
lea eax, [ebp - 0xc]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
xor eax, eax
mov dword [ebp - 0x20], eax
jmp case.0x654398.0
inc dword [ebp - 0x20]
lea eax, [ebp - 0x1dc]
push eax
mov ecx, 1
mov edx, dword [ebp - 0xc]
mov eax, 0x654b78
call sub.rtl260.bpl__System_Pos_qqrx31System__AnsiStringT_us_i65535__t1i
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__LStrCopy_qqrx27System__AnsiStringT_us_i0__ii
mov edx, dword [ebp - 0x1dc]
lea eax, [ebp - 0x1d8]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov eax, dword [ebp - 0x1d8]
lea edx, [ebp - 0x1d4]
call sub.rtl260.bpl__System_Sysutils_Trim_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x1d4]
lea eax, [ebp - 0x10]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea eax, [ebp - 0xc]
push eax
mov ecx, 1
mov edx, dword [ebp - 0xc]
mov eax, 0x654b78
call sub.rtl260.bpl__System_Pos_qqrx31System__AnsiStringT_us_i65535__t1i
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__LStrLen_qqrx31System__AnsiStringT_us_i65535__
pop edx
sub eax, edx
push eax
mov ecx, 1
mov edx, dword [ebp - 0xc]
mov eax, 0x654b78
call sub.rtl260.bpl__System_Pos_qqrx31System__AnsiStringT_us_i65535__t1i
mov edx, eax
inc edx
mov eax, dword [ebp - 0xc]
pop ecx
call sub.rtl260.bpl__System__LStrCopy_qqrx27System__AnsiStringT_us_i0__ii
mov eax, dword [ebp - 0x20]
cmp eax, 9
ja case.0x654398.0
jmp dword [eax*4 + 0x65439f]
lea eax, [ebp - 0x2dc]
mov edx, dword [ebp - 0x10]
mov ecx, 0xff
call sub.rtl260.bpl__System__LStrToString_qqrp29System__SmallString_uc_i255__x27System__AnsiStringT_us_i0__i
lea edx, [ebp - 0x2dc]
mov eax, 0x751ce8
mov cl, 1
call sub.rtl260.bpl__System__PStrNCpy_qqrp29System__SmallString_uc_i255__t1uc
jmp case.0x654398.0
lea eax, [ebp - 0x2e0]
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov eax, dword [ebp - 0x2e0]
call sub.rtl260.bpl__System_Sysutils_StrToFloat_qqrx20System_UnicodeString
fstp qword [0x751cf0]
wait
jmp case.0x654398.0
lea eax, [ebp - 0x2e4]
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov eax, dword [ebp - 0x2e4]
call sub.rtl260.bpl__System_Sysutils_StrToInt_qqrx20System_UnicodeString
mov dword [0x751cf8], eax
jmp case.0x654398.0
mov eax, 0x751cfc
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
jmp case.0x654398.0
mov eax, 0x751d00
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
jmp case.0x654398.0
mov eax, 0x751d04
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
jmp case.0x654398.0
mov eax, 0x751d08
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
jmp case.0x654398.0
lea eax, [ebp - 0x2e8]
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov eax, dword [ebp - 0x2e8]
call sub.rtl260.bpl__System_Sysutils_StrToInt_qqrx20System_UnicodeString
mov dword [0x751d0c], eax
jmp case.0x654398.0
mov eax, 0x751d10
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov ecx, 1
mov edx, dword [ebp - 0xc]
mov eax, 0x654b78
call sub.rtl260.bpl__System_Pos_qqrx31System__AnsiStringT_us_i65535__t1i
test eax, eax
jg 0x6542ea
mov eax, 0x751ce8
mov edx, 0x654b7c
xor ecx, ecx
mov cl, byte [eax]
inc ecx
call sub.rtl260.bpl__System__AStrCmp_qqrv
jne 0x6544de
lea eax, [ebp - 0x1c]
mov edx, 0x654b8c
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x6544eb
lea eax, [ebp - 0x1c]
mov edx, 0x654be4
call sub.rtl260.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x2ec]
mov ecx, dword [ebp - 0x1c]
mov edx, dword [0x751cfc]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2ec]
mov al, 2
call fcn.006efbe4
cmp eax, 6
jne 0x654aca
mov eax, 0x751ce8
mov edx, 0x654b7c
xor ecx, ecx
mov cl, byte [eax]
inc ecx
call sub.rtl260.bpl__System__AStrCmp_qqrv
je 0x65499a
fldz
fld qword [0x751cf0]
fucompp
wait
fnstsw ax
sahf
jp 0x654545
je 0x654aca
xor eax, eax
push ebp
push 0x6548dc
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x24], eax
mov eax, dword [ebp - 0x24]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x24]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x24]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x654c0c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x654c8c
mov eax, dword [ebp - 0x24]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [0x751d08]
mov ecx, dword [eax]
call dword [ecx + 0x48]
fild dword [0x751cf8]
fstp qword [ebp - 0x2f4]
wait
push dword [ebp - 0x2f0]
push dword [ebp - 0x2f4]
mov edx, 0x654ca4
mov eax, dword [ebp - 0x24]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x24]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x654611
lea eax, [ebp - 0x2f8]
mov ecx, 0x654cb8
mov edx, dword [0x751cfc]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2f8]
xor eax, eax
call fcn.006efbe4
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x654aca
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x68]
mov edx, dword [eax]
call dword [edx + 0x16c]
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x6c]
mov dword [ebp - 0x28], eax
mov eax, dword [ebp - 0x28]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x28]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x28]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x654ce4
mov ecx, dword [eax]
call dword [ecx + 0x3c]
push dword [0x751cf4]
push dword [0x751cf0]
mov edx, 0x654d58
mov eax, dword [ebp - 0x28]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x78]
mov eax, dword [ebp - 0x28]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
mov eax, dword [0x751cf8]
mov dword [ebp - 0x18], eax
xor ecx, ecx
mov edx, 0x654d70
mov eax, 0x654d90
call fcn.006ecb94
cmp al, 1
jne 0x6546c7
fild dword [ebp - 0x18]
fstp qword [ebp - 0x2f4]
wait
push dword [ebp - 0x2f0]
push dword [ebp - 0x2f4]
mov eax, dword [0x751cd8]
call fcn.006598e8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x654aca
lea eax, [ebp - 0x170]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x654]
or ecx, 0xffffffff
mov edx, dword [ebp - 0x18]
call fcn.00445ec4
fild dword [ebp - 0x18]
fstp qword [ebp - 0x2f4]
wait
push dword [ebp - 0x2f0]
push dword [ebp - 0x2f4]
lea edx, [ebp - 0x1c4]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x65c]
call fcn.0044b7bc
lea eax, [ebp - 0x110]
mov edx, dword [0x751d10]
mov ecx, 0
call sub.rtl260.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea eax, [ebp - 0x98]
push eax
lea ecx, [ebp - 0x1c4]
lea edx, [ebp - 0x170]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x660]
call fcn.006659dc
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x660]
call fcn.00665c84
fstp qword [ebp - 0x98]
wait
mov word [ebp - 0x88], 0x3101
push dword [0x751d08]
push 0x654da8
call fcn.006ef040
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x300]
mov eax, 0x654db8
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
push dword [ebp - 0x300]
lea eax, [ebp - 0x2fc]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x2fc]
call sub.rtl260.bpl__System_Sysutils_StrToDateTime_qqrx20System_UnicodeString
fstp qword [ebp - 0x80]
wait
lea eax, [ebp - 0x2dc]
mov edx, dword [0x751d08]
mov ecx, 0xff
call sub.rtl260.bpl__System__UStrToString_qqrp29System__SmallString_uc_i255__x20System_UnicodeStringi
lea edx, [ebp - 0x2dc]
lea eax, [ebp - 0x78]
mov cl, 0xa
call sub.rtl260.bpl__System__PStrNCpy_qqrp29System__SmallString_uc_i255__t1uc
mov eax, dword [0x751d0c]
mov dword [ebp - 0x58], eax
lea edx, [ebp - 0x98]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x660]
xor ecx, ecx
call fcn.006638a0
mov eax, dword [ebp - 0x98]
mov dword [ebp - 0xc8], eax
mov eax, dword [ebp - 0x94]
mov dword [ebp - 0xc4], eax
mov eax, dword [ebp - 0x58]
mov dword [ebp - 0xb8], eax
mov eax, dword [ebp - 0x80]
mov dword [ebp - 0xb0], eax
mov eax, dword [ebp - 0x7c]
mov dword [ebp - 0xac], eax
lea edx, [ebp - 0x308]
mov eax, dword [ebp - 0x58]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0x308]
lea edx, [ebp - 0x304]
call fcn.006ec384
mov edx, dword [ebp - 0x304]
lea eax, [ebp - 0x2dc]
mov ecx, 0xff
call sub.rtl260.bpl__System__UStrToString_qqrp29System__SmallString_uc_i255__x20System_UnicodeStringi
lea edx, [ebp - 0x2dc]
lea eax, [ebp - 0xb4]
mov cl, 1
call sub.rtl260.bpl__System__PStrNCpy_qqrp29System__SmallString_uc_i255__t1uc
mov word [ebp - 0xa8], 0x3101
mov eax, dword [ebp - 0x80]
mov dword [ebp - 0xa0], eax
mov eax, dword [ebp - 0x7c]
mov dword [ebp - 0x9c], eax
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov ecx, dword [eax + 0x6c]
mov dl, 1
mov eax, dword [0x44d548]
call fcn.0044d758
mov dword [ebp - 0x14], eax
lea edx, [ebp - 0xc8]
mov eax, dword [ebp - 0x14]
call fcn.0044def0
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x68]
mov edx, dword [eax]
call dword [edx + 0x170]
mov eax, dword [0x730c98]
mov eax, dword [eax]
mov eax, dword [eax + 0x440]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Refresh_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65493d
cmp dword [ebp - 0x14], 0
je 0x65494b
mov eax, dword [ebp - 0x14]
call sub.rtl260.bpl__System_TObject_Free_qqrv
xor eax, eax
push ebp
push 0x654970
push dword fs:[eax]
mov dword fs:[eax], esp
call fcn.006edb6c
call fcn.006edb80
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x654aca
mov eax, dword [0x731020]
mov eax, dword [eax]
call sub.vcl260.bpl__Vcl_Forms_TCustomForm_Close_qqrv
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, dword [0x751cf0]
mov dword [eax + 0xa30], edx
mov edx, dword [0x751cf4]
mov dword [eax + 0xa34], edx
fild dword [0x751cf8]
mov eax, dword [0x730da8]
mov eax, dword [eax]
fstp qword [eax + 0xa38]
wait
mov eax, dword [0x730da8]
mov eax, dword [eax]
cmp dword [eax + 0xa18], 1
jne 0x6549ff
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x5fc]
mov si, 0xffea
call sub.rtl260.bpl__System__CallDynaInst_qqrv
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x5fc]
cmp dword [eax + 0xc], 0
jne 0x654a28
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x5fc]
mov si, 0xffea
call sub.rtl260.bpl__System__CallDynaInst_qqrv
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, 1
call fcn.006d7284
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x538]
mov edx, 0x654e4c
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x544]
mov edx, dword [0x751cfc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x484]
mov edx, dword [0x751d0c]
mov ecx, dword [eax]
call dword [ecx + 0x134]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x554]
mov edx, dword [0x751d00]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x540]
mov edx, dword [0x751d04]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [0x730c98]
mov eax, dword [eax]
mov eax, dword [eax + 0x440]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Refresh_qqrv
call fcn.006edb80
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x654b65
lea eax, [ebp - 0x30c]
mov edx, 6
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x2ec]
mov edx, 4
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x1dc]
call sub.rtl260.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x1d8]
mov edx, 5
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c4]
mov edx, dword [0x443920]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x170]
mov edx, dword [0x442e60]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x98]
mov edx, dword [0x662e00]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x10]
mov edx, 3
call sub.rtl260.bpl__System__LStrArrayClr_qqrpvi
ret