Function at 0x66c780
Capabilities:
Create process on windows
Self delete

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x79
push 0
push 0
dec ecx
jne 0x66c789
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x66f428
push dword fs:[eax]
mov dword fs:[eax], esp
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.P_Interface.bpl__Outinvoicedata_TFOutInvoiceData_]
call sub.vcl70.bpl__Forms_TCustomForm__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x14], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x18], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x1c], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x20], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x24], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x34], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.dbrtl70.bpl__Db_TDataSource_]
call sub.dbrtl70.bpl__Db_TDataSource__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x50], eax
mov dl, 1
mov eax, dword [sym.imp.NativeExcelD7.bpl__Nexcel_TXLSWorkbook_]
call sub.NativeExcelD7.bpl__Nexcel_TXLSWorkbook__bctr_qqrv
mov edx, eax
test edx, edx
je 0x66c84a
sub edx, 0xffffff70
lea eax, [ebp - 0x54]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x5c], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x60], eax
lea edx, [ebp - 0x8c]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x8c]
mov edx, 0x66f444
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x8c]
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Inifiles_TIniFile_]
call sub.rtl70.bpl__Inifiles_TCustomIniFile__bctr_qqrx17System_AnsiString
mov dword [ebp - 0x68], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x70], eax
xor edx, edx
push ebp
push 0x66f082
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov edx, dword [edx]
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov edx, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov edx, dword [edx]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov edx, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov edx, dword [edx]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov edx, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov edx, dword [edx]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov dx, word [0x66f454]
call sub.vcl70.bpl__Grids_TCustomGrid_SetOptions_qqr46System__Set_t17Grids_TGridOption_iuc_0_iuc_14_
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov eax, dword [eax + 0x628]
mov byte [eax + 0x12], 0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov eax, dword [eax + 0x628]
mov byte [eax + 0x18], 0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov eax, dword [eax + 0x628]
mov byte [eax + 0x1a], 0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov eax, dword [eax + 0x628]
mov byte [eax + 0x1d], 1
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov eax, dword [eax + 0x63c]
mov byte [eax + 9], 0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 9
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetColCountEx_qqri
push 0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 1
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f460
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 2
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f474
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f488
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 4
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f49c
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 5
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f4b0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f4c0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, 0x14
xor edx, edx
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, 0x1e
mov edx, 1
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, 0x87
mov edx, 2
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 3
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, 0x1e
mov edx, 4
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, 0x87
mov edx, 5
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 6
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 7
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
xor ecx, ecx
mov edx, 8
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebp - 0x24]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
push 0x66f4d0
lea edx, [ebp - 0x94]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push dword [ebp - 0x94]
push 0x66f508
lea eax, [ebp - 0x90]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x90]
push eax
mov eax, dword [ebp - 0x24]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
xor ebx, ebx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
lea edi, [ebx + 1]
cmp eax, edi
jge 0x66cbb2
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
mov edx, eax
inc edx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov edx, 0x66f53c
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x98]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x98]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f558
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x9c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x9c]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f56c
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov esi, 1
lea edx, [ebp - 0xa0]
mov eax, esi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0xa0]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 8
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 5
push 1
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
mov edi, dword [eax]
call dword [edi + 0x10c]
inc ebx
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66cdef
inc eax
mov dword [ebp - 0x74], eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
lea edi, [ebx + 1]
cmp eax, edi
jge 0x66cce3
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
mov edx, eax
inc edx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov edx, 0x66f578
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xa4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xa4]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 2
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f594
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xa8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xa8]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f558
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xac]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xac]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f5a8
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0
push 0
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_AddCheckBox_qqriioo
inc ebx
inc esi
lea edx, [ebp - 0xb0]
mov eax, esi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0xb0]
push eax
lea ecx, [ebx + 1]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 8
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x74]
jne 0x66ccae
mov eax, dword [ebp - 0x24]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
push 0x66f4d0
lea edx, [ebp - 0xb8]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push dword [ebp - 0xb8]
push 0x66f5b4
lea eax, [ebp - 0xb4]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xb4]
push eax
mov eax, dword [ebp - 0x24]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
lea edi, [ebx + 1]
cmp eax, edi
jge 0x66ce8c
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
mov edx, eax
inc edx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov edx, 0x66f53c
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xbc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xbc]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f558
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xc0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xc0]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f56c
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
inc esi
lea edx, [ebp - 0xc4]
mov eax, esi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0xc4]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 8
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 5
push 1
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
mov edi, dword [eax]
call dword [edi + 0x10c]
inc ebx
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66d0fc
inc eax
mov dword [ebp - 0x74], eax
mov edx, 0x66f594
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xc8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xc8]
mov edx, 0x66f5e8
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66cfbb
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
jmp 0x66d0f3
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
lea edi, [ebx + 1]
cmp eax, edi
jge 0x66cff0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
mov edx, eax
inc edx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov edx, 0x66f578
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xcc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xcc]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 2
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f594
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xd0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xd0]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f558
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xd4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xd4]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f5a8
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0
push 0
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_AddCheckBox_qqriioo
inc ebx
inc esi
lea edx, [ebp - 0xd8]
mov eax, esi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0xd8]
push eax
lea ecx, [ebx + 1]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 8
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x74]
jne 0x66cf84
mov eax, dword [ebp - 0x24]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
push 0x66f4d0
lea edx, [ebp - 0xe0]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push dword [ebp - 0xe0]
push 0x66f5f8
lea eax, [ebp - 0xdc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xdc]
push eax
mov eax, dword [ebp - 0x24]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
lea edi, [ebx + 1]
cmp eax, edi
jge 0x66d199
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
mov edx, eax
inc edx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov edx, 0x66f53c
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xe4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xe4]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f558
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xe8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xe8]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f56c
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
inc esi
lea edx, [ebp - 0xec]
mov eax, esi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0xec]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 8
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 5
push 1
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
mov edi, dword [eax]
call dword [edi + 0x10c]
inc ebx
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66d409
inc eax
mov dword [ebp - 0x74], eax
mov edx, 0x66f594
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xf0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xf0]
mov edx, 0x66f630
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66d2c8
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
jmp 0x66d400
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
lea edi, [ebx + 1]
cmp eax, edi
jge 0x66d2fd
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
mov edx, eax
inc edx
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov edx, 0x66f578
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xf4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xf4]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 2
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f594
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xf8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xf8]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov edx, 0x66f558
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xfc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xfc]
push eax
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0x66f5a8
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
push 0
push 0
mov ecx, edi
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 1
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_AddCheckBox_qqriioo
inc ebx
inc esi
lea edx, [ebp - 0x100]
mov eax, esi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov eax, dword [ebp - 0x100]
push eax
lea ecx, [ebx + 1]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov edx, 8
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetCellEx_qqriix17System_AnsiString
mov eax, dword [ebp - 0x24]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x74]
jne 0x66d291
mov eax, dword [ebp - 0x14]
mov byte [eax + 0x320], 0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x304]
mov eax, dword [eax + 0x220]
mov edx, dword [eax]
call dword [edx + 0x44]
push 0
lea eax, [ebp - 0x6c]
push eax
mov ecx, 0x66f640
mov edx, 0x66f650
mov eax, dword [ebp - 0x68]
mov ebx, dword [eax]
call dword [ebx]
cmp dword [ebp - 0x6c], 0
jne 0x66d459
mov ecx, 0x66f660
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Outinvoicedata_TFOutInvoiceData_ReadConfig_qqr17System_AnsiStringt1
jmp 0x66d53b
lea edx, [ebp - 0x6c]
mov ecx, dword [ebp - 0x70]
mov eax, 0x66f670
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov eax, dword [ebp - 0x70]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66d528
inc eax
mov dword [ebp - 0x74], eax
mov dword [ebp - 0x28], 0
lea ecx, [ebp - 0x104]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x70]
mov ebx, dword [eax]
call dword [ebx + 0xc]
cmp dword [ebp - 0x104], 0
je 0x66d51c
push 0x66f67c
lea ecx, [ebp - 0x10c]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x70]
mov ebx, dword [eax]
call dword [ebx + 0xc]
push dword [ebp - 0x10c]
push 0x66f688
push 0
lea eax, [ebp - 0x110]
push eax
lea ecx, [ebp - 0x114]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x70]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov edx, dword [ebp - 0x114]
mov ecx, 0x66f694
mov eax, dword [ebp - 0x68]
mov ebx, dword [eax]
call dword [ebx]
push dword [ebp - 0x110]
lea eax, [ebp - 0x108]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x108]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x30c]
mov eax, dword [eax + 0x23c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc dword [ebp - 0x28]
dec dword [ebp - 0x74]
jne 0x66d485
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x30c]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0xd0]
mov eax, dword [ebp - 0x14]
add eax, 0x31c
mov edx, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
xor edx, edx
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Outinvoicedata_TFOutInvoiceData_ComboBox1Change_qqrp14System_TObject
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0xec]
mov eax, dword [ebp - 0x14]
cmp byte [eax + 0x320], 0
jne 0x66d576
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x66f089
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x30c]
mov eax, dword [eax + 0x23c]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x66d627
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x30c]
mov edx, dword [eax]
call dword [edx + 0xcc]
mov edx, eax
lea ecx, [ebp - 0x6c]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x30c]
mov eax, dword [eax + 0x23c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
cmp dword [ebp - 0x6c], 0
je 0x66d60f
lea eax, [ebp - 0x6c]
push eax
mov ecx, 0x3e8
mov edx, 2
mov eax, dword [ebp - 0x6c]
call sub.rtl70.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x6c]
push eax
mov edx, dword [ebp - 0x6c]
mov eax, 0x66f688
call sub.rtl70.bpl__System__LStrPos_qqrv
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x6c]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x14]
mov edx, dword [eax + 0x31c]
mov ecx, dword [ebp - 0x6c]
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Outinvoicedata_TFOutInvoiceData_SaveConfig_qqr17System_AnsiStringt1
jmp 0x66d63d
mov eax, dword [ebp - 0x14]
mov edx, dword [eax + 0x31c]
mov ecx, 0x66f660
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Outinvoicedata_TFOutInvoiceData_SaveConfig_qqr17System_AnsiStringt1
jmp 0x66d63d
mov eax, dword [ebp - 0x14]
mov edx, dword [eax + 0x31c]
mov ecx, 0x66f660
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Outinvoicedata_TFOutInvoiceData_SaveConfig_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x300]
mov edx, dword [eax]
call dword [edx + 0x1c0]
test eax, eax
jne 0x66e714
lea eax, [ebp - 0x38]
mov edx, 0x66f6a4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x3c]
mov edx, 0x66f6a4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x40]
mov edx, 0x66f6a4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x54]
mov edx, dword [eax]
call dword [edx + 0x18]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorkSheets_Add_qqrv
mov dword [ebp - 0x58], eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetRowCountEx_qqrv
dec eax
test eax, eax
jle 0x66dade
mov dword [ebp - 0x74], eax
mov dword [ebp - 0x28], 1
lea eax, [ebp - 0x118]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 7
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov eax, dword [ebp - 0x118]
mov edx, 0x66f5a8
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66dad2
mov byte [ebp - 0x2d], 0
lea eax, [ebp - 0x2d]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 1
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_GetCheckBoxState_qqriiro
cmp byte [ebp - 0x2d], 0
je 0x66dad2
lea eax, [ebp - 0x11c]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x11c]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jge 0x66d763
lea eax, [ebp - 0x120]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x120]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea eax, [ebp - 0x128]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x128]
lea eax, [ebp - 0x124]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x124]
push eax
lea edx, [ebp - 0x130]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x130]
mov edx, 0x66f6b4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x130]
lea eax, [ebp - 0x12c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x12c]
pop edx
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jle 0x66d80f
push dword [ebp - 0x38]
lea eax, [ebp - 0x134]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x134]
push 0x66f6c4
lea eax, [ebp - 0x38]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x13c]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x13c]
lea eax, [ebp - 0x138]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x138]
push eax
lea edx, [ebp - 0x144]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x144]
mov edx, 0x66f6d0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x144]
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x140]
pop edx
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jle 0x66d8bb
push dword [ebp - 0x3c]
lea eax, [ebp - 0x148]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x148]
push 0x66f6c4
lea eax, [ebp - 0x3c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x150]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov edx, dword [ebp - 0x150]
lea eax, [ebp - 0x14c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x14c]
push eax
lea edx, [ebp - 0x158]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x158]
mov edx, 0x66f6e0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x158]
lea eax, [ebp - 0x154]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x154]
pop edx
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jle 0x66d967
push dword [ebp - 0x40]
lea eax, [ebp - 0x15c]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x15c]
push 0x66f6c4
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x16c]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 4
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov eax, dword [ebp - 0x16c]
mov edx, 0x3e7
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
lea edx, [ebp - 0x168]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x168]
lea ecx, [ebp - 0x164]
mov eax, 3
call sub.PCommonUtil.bpl__Ncutil_MyFormatNumber_qqri17System_AnsiString
push dword [ebp - 0x164]
push 0x66f6f8
lea eax, [ebp - 0x178]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 8
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
mov eax, dword [ebp - 0x178]
mov edx, 0x3e7
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
lea edx, [ebp - 0x174]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x174]
lea ecx, [ebp - 0x170]
mov eax, 3
call sub.PCommonUtil.bpl__Ncutil_MyFormatNumber_qqri17System_AnsiString
push dword [ebp - 0x170]
push 0x66f6f8
lea eax, [ebp - 0x17c]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 6
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x17c]
push 0x66f6f8
lea eax, [ebp - 0x180]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 3
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x180]
push 0x66f6f8
lea eax, [ebp - 0x184]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 5
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x184]
push 0x66f6f8
lea eax, [ebp - 0x188]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x2f8]
mov ecx, dword [ebp - 0x28]
mov edx, 2
call sub.TmsPack.bpl__Basegrid_TBaseGrid_GetCellEx_qqrii
push dword [ebp - 0x188]
lea eax, [ebp - 0x160]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x160]
mov eax, dword [ebp - 0x5c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc dword [ebp - 0x28]
dec dword [ebp - 0x74]
jne 0x66d6ae
mov eax, dword [ebp - 0x5c]
mov edx, dword [eax]
call dword [edx + 0x90]
mov eax, dword [ebp - 0x5c]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66dc0d
inc eax
mov dword [ebp - 0x74], eax
mov dword [ebp - 0x28], 0
lea ecx, [ebp - 0x64]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x5c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
lea edx, [ebp - 0x64]
mov ecx, dword [ebp - 0x60]
mov eax, 0x66f6f8
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
lea ecx, [ebp - 0x18c]
mov edx, 4
mov eax, dword [ebp - 0x60]
mov ebx, dword [eax]
call dword [ebx + 0xc]
cmp dword [ebp - 0x18c], 0
je 0x66dba1
lea ecx, [ebp - 0x1a0]
mov edx, 4
mov eax, dword [ebp - 0x60]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov edx, dword [ebp - 0x1a0]
lea eax, [ebp - 0x19c]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x19c]
push eax
lea eax, [ebp - 0x1a4]
push eax
lea edx, [ebp - 0x1a8]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x1a8]
mov ecx, dword [ebp - 0x28]
inc ecx
mov edx, 1
mov ebx, dword [eax]
call dword [ebx + 0x10]
mov eax, dword [ebp - 0x1a4]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x14]
jmp 0x66dc01
lea ecx, [ebp - 0x1bc]
mov edx, 5
mov eax, dword [ebp - 0x60]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov edx, dword [ebp - 0x1bc]
lea eax, [ebp - 0x1b8]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x1b8]
push eax
lea eax, [ebp - 0x1c0]
push eax
lea edx, [ebp - 0x1c4]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x1c4]
mov ecx, dword [ebp - 0x28]
inc ecx
mov edx, 1
mov ebx, dword [eax]
call dword [ebx + 0x10]
mov eax, dword [ebp - 0x1c0]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc dword [ebp - 0x28]
dec dword [ebp - 0x74]
jne 0x66db05
lea eax, [ebp - 0x1cc]
push eax
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x1cc]
lea edx, [ebp - 0x1c8]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1c8]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x1d4]
push eax
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x1d4]
lea edx, [ebp - 0x1d0]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1d0]
lea eax, [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x1dc]
push eax
mov eax, dword [ebp - 0x40]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x40]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x1dc]
lea edx, [ebp - 0x1d8]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1d8]
lea eax, [ebp - 0x40]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x44]
mov edx, dword [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x48]
mov edx, dword [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x4c]
mov edx, dword [ebp - 0x40]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov ebx, 2
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66efd8
inc eax
mov dword [ebp - 0x74], eax
mov dword [ebp - 0x28], 0
lea eax, [ebp - 0x38]
mov edx, dword [ebp - 0x44]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x3c]
mov edx, dword [ebp - 0x48]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x40]
mov edx, dword [ebp - 0x4c]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x38]
mov edx, 0x66f704
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66dd41
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 0x3c]
mov edx, 0x66f704
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66dd58
lea eax, [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 0x40]
mov edx, 0x66f704
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66dd6f
lea eax, [ebp - 0x40]
call sub.rtl70.bpl__System__LStrClr_qqrpv
cmp dword [ebp - 0x38], 0
je 0x66ddab
push dword [ebp - 0x38]
push 0x66f714
lea edx, [ebp - 0x1e0]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push dword [ebp - 0x1e0]
push 0x66f6b4
push dword [ebp - 0xc]
push 0x66f724
lea eax, [ebp - 0x38]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x3c], 0
je 0x66dde7
push dword [ebp - 0x3c]
push 0x66f714
lea edx, [ebp - 0x1e4]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push dword [ebp - 0x1e4]
push 0x66f6d0
push dword [ebp - 0xc]
push 0x66f724
lea eax, [ebp - 0x3c]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x40], 0
je 0x66de23
push dword [ebp - 0x40]
push 0x66f714
lea edx, [ebp - 0x1e8]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push dword [ebp - 0x1e8]
push 0x66f6e0
push dword [ebp - 0xc]
push 0x66f740
lea eax, [ebp - 0x40]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x38], 0
je 0x66de5a
push dword [ebp - 0x38]
push 0x66f75c
lea ecx, [ebp - 0x1ec]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0xc]
push dword [ebp - 0x1ec]
push 0x66f768
lea eax, [ebp - 0x38]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x3c], 0
je 0x66de91
push dword [ebp - 0x3c]
push 0x66f75c
lea ecx, [ebp - 0x1f0]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0xc]
push dword [ebp - 0x1f0]
push 0x66f768
lea eax, [ebp - 0x3c]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x40], 0
je 0x66dec8
push dword [ebp - 0x40]
push 0x66f75c
lea ecx, [ebp - 0x1f4]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0xc]
push dword [ebp - 0x1f4]
push 0x66f768
lea eax, [ebp - 0x40]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x38], 0
je 0x66def7
lea eax, [ebp - 0x38]
push eax
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x38]
mov edx, 0x66f774
call sub.rtl70.bpl__System__LStrCat_qqrv
cmp dword [ebp - 0x3c], 0
je 0x66df26
lea eax, [ebp - 0x3c]
push eax
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x3c]
mov edx, 0x66f774
call sub.rtl70.bpl__System__LStrCat_qqrv
cmp dword [ebp - 0x40], 0
je 0x66df55
lea eax, [ebp - 0x40]
push eax
mov eax, dword [ebp - 0x40]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0x40]
call sub.rtl70.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x40]
mov edx, 0x66f774
call sub.rtl70.bpl__System__LStrCat_qqrv
cmp dword [ebp - 0x38], 0
je 0x66df88
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
cmp dword [ebp - 0x3c], 0
je 0x66dfbb
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x1c]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x1c]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
cmp dword [ebp - 0x40], 0
je 0x66dfee
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x20]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x20]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_GetActive_qqrv
test al, al
je 0x66e38f
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66e703
inc eax
mov dword [ebp - 0x78], eax
mov eax, dword [ebp - 0x5c]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66e378
inc eax
mov dword [ebp - 0x7c], eax
xor esi, esi
lea ecx, [ebp - 0x64]
mov edx, esi
mov eax, dword [ebp - 0x5c]
mov edi, dword [eax]
call dword [edi + 0xc]
lea edx, [ebp - 0x64]
mov ecx, dword [ebp - 0x60]
mov eax, 0x66f6f8
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
lea ecx, [ebp - 0x1f8]
mov edx, 2
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x1f8]
push eax
lea edx, [ebp - 0x1fc]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x1fc]
mov edx, 0x66f6b4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x1fc]
pop eax
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66e127
lea ecx, [ebp - 0x218]
mov edx, 3
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x218]
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x214]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov ecx, dword [ebp - 0x214]
lea eax, [ebp - 0x210]
mov edx, 0x66f75c
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x210]
lea eax, [ebp - 0x20c]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x20c]
push eax
lea eax, [ebp - 0x21c]
push eax
lea edx, [ebp - 0x220]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x220]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x21c]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x14]
lea ecx, [ebp - 0x224]
mov edx, 2
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x224]
push eax
lea edx, [ebp - 0x228]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x228]
mov edx, 0x66f6d0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x228]
pop eax
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66e1fc
lea ecx, [ebp - 0x244]
mov edx, 3
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x244]
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x240]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov ecx, dword [ebp - 0x240]
lea eax, [ebp - 0x23c]
mov edx, 0x66f75c
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x23c]
lea eax, [ebp - 0x238]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x238]
push eax
lea eax, [ebp - 0x248]
push eax
lea edx, [ebp - 0x24c]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x24c]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x248]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x14]
lea ecx, [ebp - 0x250]
mov edx, 2
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x250]
push eax
lea edx, [ebp - 0x254]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x254]
mov edx, 0x66f6e0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x254]
pop eax
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66e36e
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
lea eax, [ebp - 0x40]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66e312
inc eax
mov dword [ebp - 0x80], eax
mov dword [ebp - 0x2c], 0
cmp dword [ebp - 0x2c], 0
jne 0x66e2b7
lea ecx, [ebp - 0x25c]
mov edx, 3
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x25c]
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x258]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x258]
lea eax, [ebp - 0x40]
call sub.rtl70.bpl__System__LStrCat_qqrv
jmp 0x66e2fe
push dword [ebp - 0x40]
push 0x66f6c4
lea ecx, [ebp - 0x264]
mov edx, 3
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x264]
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x260]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x260]
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
inc dword [ebp - 0x2c]
dec dword [ebp - 0x80]
jne 0x66e275
lea eax, [ebp - 0x268]
push eax
lea edx, [ebp - 0x26c]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x26c]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x268]
push eax
lea eax, [ebp - 0x280]
mov ecx, dword [ebp - 0x40]
mov edx, 0x66f75c
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x280]
lea eax, [ebp - 0x27c]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x27c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc esi
dec dword [ebp - 0x7c]
jne 0x66e035
inc ebx
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x78]
jne 0x66e01e
jmp 0x66e703
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_GetActive_qqrv
test al, al
je 0x66e5be
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66e703
inc eax
mov dword [ebp - 0x78], eax
mov eax, dword [ebp - 0x5c]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66e5a7
inc eax
mov dword [ebp - 0x7c], eax
xor esi, esi
lea ecx, [ebp - 0x64]
mov edx, esi
mov eax, dword [ebp - 0x5c]
mov edi, dword [eax]
call dword [edi + 0xc]
lea edx, [ebp - 0x64]
mov ecx, dword [ebp - 0x60]
mov eax, 0x66f6f8
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
lea ecx, [ebp - 0x284]
mov edx, 2
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x284]
push eax
lea edx, [ebp - 0x288]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x288]
mov edx, 0x66f6b4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x288]
pop eax
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66e4c8
lea ecx, [ebp - 0x2a4]
mov edx, 3
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x2a4]
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2a0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov ecx, dword [ebp - 0x2a0]
lea eax, [ebp - 0x29c]
mov edx, 0x66f75c
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x29c]
lea eax, [ebp - 0x298]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x298]
push eax
lea eax, [ebp - 0x2a8]
push eax
lea edx, [ebp - 0x2ac]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x2ac]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x2a8]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x14]
lea ecx, [ebp - 0x2b0]
mov edx, 2
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x2b0]
push eax
lea edx, [ebp - 0x2b4]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x2b4]
mov edx, 0x66f6e0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x2b4]
pop eax
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66e59d
lea ecx, [ebp - 0x2d0]
mov edx, 3
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x2d0]
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2cc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov ecx, dword [ebp - 0x2cc]
lea eax, [ebp - 0x2c8]
mov edx, 0x66f75c
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x2c8]
lea eax, [ebp - 0x2c4]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x2c4]
push eax
lea eax, [ebp - 0x2d4]
push eax
lea edx, [ebp - 0x2d8]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x2d8]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x2d4]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc esi
dec dword [ebp - 0x7c]
jne 0x66e3d6
inc ebx
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x78]
jne 0x66e3bf
jmp 0x66e703
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66e703
inc eax
mov dword [ebp - 0x78], eax
mov eax, dword [ebp - 0x5c]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66e6f1
inc eax
mov dword [ebp - 0x7c], eax
xor esi, esi
lea ecx, [ebp - 0x64]
mov edx, esi
mov eax, dword [ebp - 0x5c]
mov edi, dword [eax]
call dword [edi + 0xc]
lea edx, [ebp - 0x64]
mov ecx, dword [ebp - 0x60]
mov eax, 0x66f6f8
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
lea ecx, [ebp - 0x2dc]
mov edx, 2
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x2dc]
push eax
lea edx, [ebp - 0x2e0]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x2e0]
mov edx, 0x66f6b4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x2e0]
pop eax
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x66e6e7
lea ecx, [ebp - 0x2fc]
mov edx, 3
mov eax, dword [ebp - 0x60]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x2fc]
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2f8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov ecx, dword [ebp - 0x2f8]
lea eax, [ebp - 0x2f4]
mov edx, 0x66f75c
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x2f4]
lea eax, [ebp - 0x2f0]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x2f0]
push eax
lea eax, [ebp - 0x300]
push eax
lea edx, [ebp - 0x304]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x304]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x300]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc esi
dec dword [ebp - 0x7c]
jne 0x66e5f5
inc ebx
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x78]
jne 0x66e5de
inc dword [ebp - 0x28]
dec dword [ebp - 0x74]
jne 0x66dd09
jmp 0x66efd8
lea edx, [ebp - 0x38]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x304]
mov eax, dword [eax + 0x220]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
jmp 0x66e753
push 1
lea eax, [ebp - 0x308]
push eax
xor ecx, ecx
mov edx, 0x66f780
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x308]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x30c]
mov edx, dword [ebp - 0x38]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x30c]
mov eax, 0x66f788
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jg 0x66e72d
lea edx, [ebp - 0x314]
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x314]
lea eax, [ebp - 0x310]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x310]
mov eax, 0x66f790
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jle 0x66ece4
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov eax, dword [eax]
call sym.P_Interface.bpl__Publicutil_CheckDataBaseType_qqrp20Adodb_TADOConnection
cmp al, 2
jne 0x66e7e5
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x66f7b0
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x66e7f7
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x66f7f8
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66e817
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66e821
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x66f840
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66e868
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66e872
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x66f880
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66e8b9
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66e8c3
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x66f8a4
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66e90a
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66e914
mov eax, dword [ebp - 0x54]
mov edx, dword [eax]
call dword [edx + 0x18]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorkSheets_Add_qqrv
mov dword [ebp - 0x58], eax
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66e996
inc eax
mov dword [ebp - 0x74], eax
mov dword [ebp - 0x28], 0
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
lea ecx, [ebp - 0x328]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov edx, dword [ebp - 0x328]
lea eax, [ebp - 0x324]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x324]
push eax
mov edx, 0x66f8c8
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb4]
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x24c]
inc dword [ebp - 0x28]
dec dword [ebp - 0x74]
jne 0x66e93c
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0x38]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x304]
mov eax, dword [eax + 0x220]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push 1
lea eax, [ebp - 0x32c]
push eax
lea edx, [ebp - 0x330]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x330]
mov edx, 0x66f6b4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x330]
mov edx, 0x66f8d8
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x32c]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x334]
push eax
lea edx, [ebp - 0x338]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x338]
mov edx, 0x66f6d0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x338]
mov edx, 0x66f8e8
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x334]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x33c]
push eax
lea edx, [ebp - 0x340]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x340]
mov edx, 0x66f6e0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x340]
mov edx, 0x66f8fc
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x33c]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x344]
push eax
mov ecx, 0x66f914
mov edx, 0x66f93c
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x344]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66eaf3
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66eb2f
mov ebx, 1
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
dec eax
test eax, eax
jl 0x66ebae
inc eax
mov dword [ebp - 0x74], eax
xor esi, esi
lea eax, [ebp - 0x348]
push eax
lea edx, [ebp - 0x34c]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x34c]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x348]
push eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x30]
mov edx, esi
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x360]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x360]
lea eax, [ebp - 0x35c]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x35c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc esi
dec dword [ebp - 0x74]
jne 0x66eb47
inc ebx
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66ec3a
inc eax
mov dword [ebp - 0x74], eax
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
dec eax
test eax, eax
jl 0x66ec2c
inc eax
mov dword [ebp - 0x78], eax
xor esi, esi
lea eax, [ebp - 0x364]
push eax
lea edx, [ebp - 0x368]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x368]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x364]
push eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x30]
mov edx, esi
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x378]
mov ecx, dword [eax]
call dword [ecx + 0x64]
lea edx, [ebp - 0x378]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc esi
dec dword [ebp - 0x78]
jne 0x66ebd6
inc ebx
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x74]
jne 0x66ebc3
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x66f970
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66ec81
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66ec8b
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x66f998
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66ecd5
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66efd8
mov eax, dword [ebp - 0x54]
mov edx, dword [eax]
call dword [edx + 0x18]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorkSheets_Add_qqrv
mov dword [ebp - 0x58], eax
mov ebx, 1
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x66efd8
inc eax
mov dword [ebp - 0x74], eax
mov dword [ebp - 0x28], 0
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0x38]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x304]
mov eax, dword [eax + 0x220]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push 1
lea eax, [ebp - 0x37c]
push eax
lea edx, [ebp - 0x380]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x380]
mov edx, 0x66f6b4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x380]
mov edx, 0x66f8d8
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x37c]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x384]
push eax
lea edx, [ebp - 0x388]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x388]
mov edx, 0x66f6d0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x388]
mov edx, 0x66f8e8
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x384]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x38c]
push eax
lea edx, [ebp - 0x390]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
lea eax, [ebp - 0x390]
mov edx, 0x66f6e0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x390]
mov edx, 0x66f8fc
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x38c]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x394]
push eax
lea ecx, [ebp - 0x398]
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0xc]
mov ecx, dword [ebp - 0x398]
mov edx, 0x66f93c
mov eax, dword [ebp - 0x38]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x394]
lea eax, [ebp - 0x38]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x18]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x66ee84
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x66eec0
cmp dword [ebp - 0x28], 0
jne 0x66ef41
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
dec eax
test eax, eax
jl 0x66ef40
inc eax
mov dword [ebp - 0x78], eax
xor esi, esi
lea eax, [ebp - 0x39c]
push eax
lea edx, [ebp - 0x3a0]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x3a0]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x39c]
push eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x30]
mov edx, esi
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x3b4]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x3b4]
lea eax, [ebp - 0x3b0]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x3b0]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc esi
dec dword [ebp - 0x78]
jne 0x66eed9
inc ebx
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x66efcc
inc eax
mov dword [ebp - 0x78], eax
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
dec eax
test eax, eax
jl 0x66efbe
inc eax
mov dword [ebp - 0x7c], eax
xor esi, esi
lea eax, [ebp - 0x3b8]
push eax
lea edx, [ebp - 0x3bc]
mov eax, dword [ebp - 0x58]
call sub.NativeExcelD7.bpl__Nexcel_IXLSWorksheet_GetCells_qqrv
mov eax, dword [ebp - 0x3bc]
lea ecx, [esi + 1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x10]
mov eax, dword [ebp - 0x3b8]
push eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax + 0x30]
mov edx, esi
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x3cc]
mov ecx, dword [eax]
call dword [ecx + 0x64]
lea edx, [ebp - 0x3cc]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x14]
inc esi
dec dword [ebp - 0x7c]
jne 0x66ef68
inc ebx
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x78]
jne 0x66ef55
inc dword [ebp - 0x28]
dec dword [ebp - 0x74]
jne 0x66ed15
mov edx, 0x66f9b8
mov eax, dword [ebp - 0x54]
mov ecx, dword [eax]
call dword [ecx + 0x40]
push 5
push 0
push 0
push 0x66f9cc
push 0x66f9d8
push 0
call sub.shell32.dll_ShellExecuteA
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x66f089
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x18]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x1c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x20]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x20]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x34]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x50]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x68]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x54]
mov edx, dword [eax]
call dword [edx + 0x20]
mov eax, dword [ebp - 0x5c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x60]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x24]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x70]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x66f432
lea eax, [ebp - 0x3cc]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x3bc]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x3b4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x3b0]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x3a0]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x398]
mov edx, 8
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x378]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x368]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x360]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x35c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x34c]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x344]
mov edx, 8
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x324]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x314]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x310]
mov edx, 2
call sub.rtl70.bpl__System__WStrArrayClr_qqrpvi
lea eax, [ebp - 0x308]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x304]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x2fc]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x2f0]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x2e0]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x2d8]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x2d0]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x2c4]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x2b4]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x2ac]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x2a4]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x298]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x288]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x27c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x26c]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x264]
mov edx, 6
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x24c]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x244]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x238]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x228]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x220]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x218]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x20c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x1fc]
mov edx, 0xe
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c0]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1bc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x1b8]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x1c4]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1a8]
mov edx, dword [sym.imp.NativeExcelD7.bpl___xp_16Nexcel_IXLSRange]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x1a0]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x19c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x18c]
mov edx, 0xe
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x154]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x150]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x14c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x148]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x13c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x138]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x134]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x12c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x128]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x124]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x120]
mov edx, 0x26
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x6c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x64]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x54]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x4c]
mov edx, 6
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret