Function at 0x55522c
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x24
push 0
push 0
dec ecx
jne 0x555234
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x5566f9
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x5565a2
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 5
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x10]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 6
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x14]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 1
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x18]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 2
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x1c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 8
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x20]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 9
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x24]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xa
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x28]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xb
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0x18], 0
jne 0x5553a8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5565eb
lea eax, [ebp - 0x2c]
push eax
mov ecx, dword [ebp - 0x18]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call fcn.005573a8
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
test al, al
jne 0x555431
mov eax, dword [ebp - 4]
add eax, 0x42c
mov edx, dword [ebp - 0x14]
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 4]
add eax, 0x430
mov edx, dword [ebp - 0x18]
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 4]
add eax, 0x434
mov edx, dword [ebp - 0x10]
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 4]
add eax, 0x438
mov edx, dword [ebp - 0x2c]
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 4]
add eax, 0x43c
mov edx, dword [ebp - 8]
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 4]
add eax, 0x440
mov edx, dword [ebp - 0x24]
call sub.rtl260.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x55547f
mov eax, dword [ebp - 4]
add eax, 0x42c
call sub.rtl260.bpl__System__UStrClr_qqrpv
mov eax, dword [ebp - 4]
add eax, 0x430
call sub.rtl260.bpl__System__UStrClr_qqrpv
mov eax, dword [ebp - 4]
add eax, 0x434
call sub.rtl260.bpl__System__UStrClr_qqrpv
mov eax, dword [ebp - 4]
add eax, 0x438
call sub.rtl260.bpl__System__UStrClr_qqrpv
mov eax, dword [ebp - 4]
add eax, 0x43c
call sub.rtl260.bpl__System__UStrClr_qqrpv
mov eax, dword [ebp - 4]
add eax, 0x440
call sub.rtl260.bpl__System__UStrClr_qqrpv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp al, 1
jne 0x5555f0
mov eax, dword [ebp - 0x18]
call sub.rtl260.bpl__System__UStrLen_qqrx20System_UnicodeString
cmp eax, 0xe
je 0x555505
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3dc]
mov dword [ebp - 0x3c], eax
mov eax, dword [ebp - 0x3c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x3c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x3c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556718
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x556784
mov eax, dword [ebp - 0x3c]
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 - 0x3c]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
mov eax, dword [ebp - 0x3c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
call fcn.005576f0
lea eax, [ebp - 0x64]
push eax
mov ecx, dword [ebp - 0x18]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call fcn.005573a8
mov eax, dword [ebp - 0x64]
mov edx, 0x556798
call sub.rtl260.bpl__System__UStrEqual_qqrv
je 0x5555f0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3dc]
mov dword [ebp - 0x40], eax
mov eax, dword [ebp - 0x40]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x40]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x40]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556718
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x556784
mov eax, dword [ebp - 0x40]
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 - 0x40]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
mov eax, dword [ebp - 0x40]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x40]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x40]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5567b0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x556784
mov eax, dword [ebp - 0x40]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x556838
mov eax, dword [ebp - 0x40]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x40]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
mov eax, dword [ebp - 0x40]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
call fcn.005576f0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5565eb
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x600]
cmp dword [eax + 0xc], 1
je 0x556598
mov eax, dword [ebp - 0x1c]
mov edx, 0x55684c
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x555d47
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
neg al
sbb eax, eax
mov edx, dword [0x730c24]
mov dword [edx], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3dc]
mov dword [ebp - 0x44], eax
mov eax, dword [ebp - 0x44]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x44]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x44]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x55685c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x44]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x55693c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x5569f0
mov eax, dword [ebp - 0x44]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x556a08
mov eax, dword [ebp - 0x44]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x44]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x44]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x55577a
mov edx, 0x556838
mov eax, dword [ebp - 0x44]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
lea edx, [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x88]
mov eax, dword [ebp - 0x44]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, dword [ebp - 8]
call fcn.006d6470
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
test eax, eax
je 0x5559c0
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 4
je 0x5559c0
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 5
je 0x5559c0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x404]
mov edx, dword [eax]
call dword [edx + 0x130]
test al, al
jne 0x5559c0
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, 0x556a20
call fcn.006c3cac
fstp st(0)
jmp 0x5559c0
mov eax, dword [ebp - 0x44]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
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 + 0x538]
mov edx, 0x556a30
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0x68]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 1
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x68]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x544]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0x6c]
push eax
lea eax, [ebp - 0x70]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 2
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov eax, dword [ebp - 0x70]
mov ecx, 6
mov edx, 1
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov edx, dword [ebp - 0x6c]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x69c]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0x74]
push eax
lea eax, [ebp - 0x78]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 2
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov eax, dword [ebp - 0x78]
mov ecx, 7
mov edx, 8
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov edx, dword [ebp - 0x74]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x6a0]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0xc]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 3
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
lea eax, [ebp - 0x7c]
push eax
mov ecx, 2
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.rtl260.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x7c]
mov edx, 0x556a40
call sub.rtl260.bpl__System__UStrEqual_qqrv
jne 0x555900
lea ecx, [ebp - 0x80]
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 4]
call fcn.00551f6c
mov edx, dword [ebp - 0x80]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x540]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x555929
lea ecx, [ebp - 0x84]
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 4]
call fcn.00551f6c
mov edx, dword [ebp - 0x84]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x554]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0x88]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 7
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x88]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x548]
call sub.vcl260.bpl__Vcl_Mask_TCustomMaskEdit_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0x8c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 4
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x8c]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x520]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, 0x556a20
call fcn.006c3cac
fstp st(0)
lea eax, [ebp - 0x90]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 9
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0x90], 0
je 0x555a50
lea eax, [ebp - 0x94]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 9
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x94]
mov eax, dword [0x730d30]
mov eax, dword [eax]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov dword [ebp - 0x34], eax
cmp dword [ebp - 0x34], 0
jl 0x555a50
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x650]
mov edx, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x134]
lea eax, [ebp - 0x98]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xb
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0x98], 0
je 0x555ae0
lea eax, [ebp - 0x9c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xb
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x9c]
mov eax, dword [0x730c78]
mov eax, dword [eax]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov dword [ebp - 0x38], eax
cmp dword [ebp - 0x38], 0
jl 0x555ae0
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x668]
mov edx, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x134]
lea eax, [ebp - 0xa0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xc
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0xa0], 0
je 0x555bf7
lea edx, [ebp - 0xa4]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
cmp dword [ebp - 0xa4], 0
jne 0x555b7c
lea eax, [ebp - 0xa8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xc
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0xa8]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x555bf7
lea edx, [ebp - 0xb0]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
push dword [ebp - 0xb0]
push 0x556a54
lea eax, [ebp - 0xb4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xc
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0xb4]
lea eax, [ebp - 0xac]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0xac]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0xb8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xd
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0xb8], 0
je 0x555d0e
lea edx, [ebp - 0xbc]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
cmp dword [ebp - 0xbc], 0
jne 0x555c93
lea eax, [ebp - 0xc0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xd
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0xc0]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x555d0e
lea edx, [ebp - 0xc8]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
push dword [ebp - 0xc8]
push 0x556a54
lea eax, [ebp - 0xcc]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xd
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0xcc]
lea eax, [ebp - 0xc4]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0xc4]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp al, 1
jne 0x555d39
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x604]
mov si, 0xffea
call sub.rtl260.bpl__System__CallDynaInst_qqrv
mov eax, dword [0x730c24]
xor edx, edx
mov dword [eax], edx
jmp 0x556432
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
test al, al
jne 0x555e42
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3dc]
mov dword [ebp - 0x48], eax
mov eax, dword [ebp - 0x48]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x48]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x48]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556a64
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x48]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556a9c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x48]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556ae8
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x48]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556b60
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x48]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556b98
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x5569f0
mov eax, dword [ebp - 0x48]
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 - 0x48]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x556bd8
mov eax, dword [ebp - 0x48]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
dec eax
jle 0x555e31
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, dword [ebp - 0x18]
call fcn.006d6854
mov eax, dword [ebp - 0x48]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5565eb
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, dword [ebp - 8]
call fcn.006d6470
jmp 0x555e51
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, dword [ebp - 8]
call fcn.006d6470
xor eax, eax
mov dword [ebp - 0x30], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
neg al
sbb eax, eax
mov edx, dword [0x730c24]
mov dword [edx], eax
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
test eax, eax
je 0x555eef
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 4
je 0x555eef
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x530]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp eax, 5
je 0x555eef
mov dword [ebp - 0x30], 1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x404]
mov edx, dword [eax]
call dword [edx + 0x130]
test al, al
jne 0x555eef
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, 0x556a20
call fcn.006c3cac
fstp st(0)
cmp dword [ebp - 0x30], 0
jne 0x5560b0
mov dl, 1
mov eax, 0x556bec
call sub.rtl260.bpl__System_Sysutils_FileExists_qqrx20System_UnicodeStringo
test al, al
je 0x555ff3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3dc]
mov dword [ebp - 0x4c], eax
mov eax, dword [ebp - 0x4c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x4c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x4c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556c2c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x4c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556c70
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x4c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556d80
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x4c]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556da0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x5569f0
mov eax, dword [ebp - 0x4c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x556a08
mov eax, dword [ebp - 0x4c]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x4c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x556bd8
mov eax, dword [ebp - 0x4c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
test eax, eax
jne 0x555fe6
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x404]
mov edx, dword [eax]
call dword [edx + 0x130]
test al, al
jne 0x555fe6
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, 0x556a20
call fcn.006c3cac
fstp st(0)
mov eax, dword [ebp - 0x4c]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
jmp 0x5560b0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3dc]
mov dword [ebp - 0x50], eax
mov eax, dword [ebp - 0x50]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x50]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x50]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556eb0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x50]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556f3c
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x5569f0
mov eax, dword [ebp - 0x50]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x556a08
mov eax, dword [ebp - 0x50]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x50]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x556bd8
mov eax, dword [ebp - 0x50]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, dword [eax]
call dword [edx + 0x74]
test eax, eax
jne 0x5560a8
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x404]
mov edx, dword [eax]
call dword [edx + 0x130]
test al, al
jne 0x5560a8
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov edx, 0x556a20
call fcn.006c3cac
fstp st(0)
mov eax, dword [ebp - 0x50]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
lea eax, [ebp - 0xd0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 9
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0xd0], 0
je 0x556140
lea eax, [ebp - 0xd4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 9
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0xd4]
mov eax, dword [0x730d30]
mov eax, dword [eax]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov dword [ebp - 0x34], eax
cmp dword [ebp - 0x34], 0
jl 0x556140
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x650]
mov edx, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x134]
lea eax, [ebp - 0xd8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xb
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0xd8], 0
je 0x5561d0
lea eax, [ebp - 0xdc]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xb
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0xdc]
mov eax, dword [0x730c78]
mov eax, dword [eax]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov dword [ebp - 0x38], eax
cmp dword [ebp - 0x38], 0
jl 0x5561d0
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x668]
mov edx, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x134]
lea eax, [ebp - 0xe0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xc
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0xe0], 0
je 0x5562e7
lea edx, [ebp - 0xe4]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
cmp dword [ebp - 0xe4], 0
jne 0x55626c
lea eax, [ebp - 0xe8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xc
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0xe8]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x5562e7
lea edx, [ebp - 0xf0]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
push dword [ebp - 0xf0]
push 0x556a54
lea eax, [ebp - 0xf4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xc
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0xf4]
lea eax, [ebp - 0xec]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0xec]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0xf8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xd
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
cmp dword [ebp - 0xf8], 0
je 0x5563fe
lea edx, [ebp - 0xfc]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
cmp dword [ebp - 0xfc], 0
jne 0x556383
lea eax, [ebp - 0x100]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xd
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x100]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x5563fe
lea edx, [ebp - 0x108]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_GetText_qqrv
push dword [ebp - 0x108]
push 0x556a54
lea eax, [ebp - 0x10c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
call sub.tmsdXE12.bpl__Advgrid_TAdvStringGrid_GetRowEx_qqrv
mov ecx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d0]
mov edx, 0xd
call sub.tmsdXE12.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x10c]
lea eax, [ebp - 0x104]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x104]
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x7cc]
call sub.vcl260.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp al, 1
jne 0x556429
mov eax, dword [0x730da8]
mov eax, dword [eax]
mov eax, dword [eax + 0x604]
mov si, 0xffea
call sub.rtl260.bpl__System__CallDynaInst_qqrv
mov eax, dword [0x730c24]
xor edx, edx
mov dword [eax], edx
lea eax, [ebp - 0x2c]
push eax
mov ecx, dword [ebp - 0x18]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
call fcn.005573a8
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3d8]
mov edx, dword [eax]
call dword [edx + 0x130]
cmp al, 1
jne 0x556598
mov eax, dword [ebp - 0x2c]
mov edx, 0x556798
call sub.rtl260.bpl__System__UStrEqual_qqrv
je 0x556590
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x3dc]
mov dword [ebp - 0x54], eax
mov eax, dword [ebp - 0x54]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x54]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x54]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x556718
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x556784
mov eax, dword [ebp - 0x54]
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 - 0x54]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
mov eax, dword [ebp - 0x54]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x54]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x54]
call sub.dac260.bpl__Dbaccess_TCustomDADataSet_GetSQL_qqrv
mov edx, 0x5567b0
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x556784
mov eax, dword [ebp - 0x54]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 0x556838
mov eax, dword [ebp - 0x54]
call sub.odac260.bpl__Ora_TOraDataSet_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 0x54]
call sub.odac260.bpl__Ora_TOraDataSet_ExecSQL_qqrv
mov eax, dword [0x730c4c]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
je 0x556537
mov eax, dword [0x730a9c]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x556590
cmp dword [ebp - 8], 0
jne 0x55655c
push 0
push 0
push 0
lea eax, [ebp - 0x110]
push eax
mov ecx, dword [ebp - 0x24]
mov edx, 0x556a20
mov eax, dword [ebp - 4]
call fcn.005524a4
jmp 0x556590
mov eax, dword [ebp - 8]
call sub.rtl260.bpl__System_Sysutils_StrToFloat_qqrx20System_UnicodeString
fstp qword [ebp - 0x11c]
wait
push dword [ebp - 0x118]
push dword [ebp - 0x11c]
push 0
lea eax, [ebp - 0x114]
push eax
mov ecx, dword [ebp - 0x24]
mov edx, 0x556a20
mov eax, dword [ebp - 4]
call fcn.005524a4
mov eax, dword [ebp - 4]
call fcn.005576f0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5565eb
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x556703
lea eax, [ebp - 0x120]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x114]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x108]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x100]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xfc]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xf8]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xf0]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xe8]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xe4]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xe0]
mov edx, 6
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc8]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc0]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xbc]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xb8]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xb0]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xa8]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xa4]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xa0]
mov edx, 0x12
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x2c]
mov edx, 0xa
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret