Function at 0x53ee5c
Capabilities:
Access peb ldr_data
Get number of processors
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x29
push 0
push 0
dec ecx
jne 0x53ee65
push ecx
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 8], ecx
mov ebx, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x540642
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov dl, byte [ebp + 8]
mov byte [eax + 0x348], dl
mov eax, dword [ebp - 4]
mov edx, dword [ebp + 0xc]
mov dword [eax + 0x34c], edx
mov eax, dword [ebp - 4]
add eax, 0x354
mov edx, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov dword [eax + 0x370], ebx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x368]
mov edx, ebx
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
mov edx, ebx
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x36c]
mov edx, ebx
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 4]
cmp dword [eax + 0x344], 0
jne 0x53ef4c
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x35c]
mov eax, dword [eax + 0x50]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 4]
add eax, 0x344
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x540660
mov eax, dword [ebp - 4]
push dword [eax + 0x344]
push 0x540678
mov eax, dword [ebp - 4]
push dword [eax + 0x354]
push 0x540688
lea eax, [ebp - 0x24]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x24]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x54069c
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Classes_TComponent_FindComponent_qqrx17System_AnsiString
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetAutoSizeP_qqro
mov edx, 0x54069c
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Classes_TComponent_FindComponent_qqrx17System_AnsiString
mov edx, 2
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov edx, 0x54069c
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Classes_TComponent_FindComponent_qqrx17System_AnsiString
mov edx, 5
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetColCountEx_qqri
mov edx, 0x54069c
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Classes_TComponent_FindComponent_qqrx17System_AnsiString
mov ebx, eax
mov eax, dword [ebp - 4]
mov dword [ebx + 0x1cc], eax
mov dword [ebx + 0x1c8], sym.P_Interface.bpl__Unit_fpxg_TFROM_FPXG_AdvStringGrid1Exit_qqrp14System_TObject
mov eax, dword [ebp - 4]
mov dword [ebx + 0x30c], eax
mov dword [ebx + 0x308], sym.P_Interface.bpl__Unit_fpxg_TFROM_FPXG_AdvStringGrid1GetDisplText_qqrp14System_TObjectiir17System_AnsiString
mov eax, dword [ebp - 4]
mov dword [ebx + 0x36c], eax
mov dword [ebx + 0x368], sym.P_Interface.bpl__Unit_fpxg_TFROM_FPXG_AdvStringGrid1GetCellColor_qqrp14System_TObjectii42System__Set_t14Grids_Grids__3_iuc_0_i
mov eax, dword [ebp - 4]
mov dword [ebx + 0x38c], eax
mov dword [ebx + 0x388], sym.P_Interface.bpl__Unit_fpxg_TFROM_FPXG_AdvStringGrid1GetAlignment_qqrp14System_TObjectiir18Classes_TAlignmentr20Basegrid_TVAlig
mov eax, dword [ebp - 4]
mov dword [ebx + 0x3d4], eax
mov dword [ebx + 0x3d0], sym.P_Interface.bpl__Unit_fpxg_TFROM_FPXG_AdvStringGrid1CellChanging_qqrp14System_TObjectiirit4ro
mov eax, dword [ebp - 4]
mov dword [ebx + 0x3ec], eax
mov dword [ebx + 0x3e8], sym.P_Interface.bpl__Unit_fpxg_TFROM_FPXG_AdvStringGrid1AutoAddRow_qqrp14System_TObjecti
mov eax, dword [ebp - 4]
mov dword [ebx + 0x3fc], eax
mov dword [ebx + 0x3f8], 0x54819c
mov eax, dword [ebp - 4]
mov dword [ebx + 0x514], eax
mov dword [ebx + 0x510], 0x555f50
mov eax, dword [ebp - 4]
mov dword [ebx + 0x51c], eax
mov dword [ebx + 0x518], 0x54af6c
mov eax, dword [ebp - 4]
mov dword [ebx + 0x52c], eax
mov dword [ebx + 0x528], 0x54926c
mov eax, dword [ebp - 4]
mov dword [ebx + 0x1e5c], eax
mov dword [ebx + 0x1e58], 0x548348
mov eax, dword [ebp - 4]
mov dword [ebx + 0x1e74], eax
mov dword [ebx + 0x1e70], 0x5487a4
mov eax, dword [ebp - 4]
mov dword [ebx + 0x1f94], eax
mov dword [ebx + 0x1f90], 0x5568a0
mov eax, dword [ebp - 4]
mov dword [ebx + 0x1f9c], eax
mov dword [ebx + 0x1f98], 0x556858
mov edx, 5
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetColCountEx_qqri
mov edx, 2
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetRowCountEx_qqri
mov dx, word [ebx + 0x248]
or dx, word [0x5406ac]
mov eax, ebx
call sub.vcl70.bpl__Grids_TCustomGrid_SetOptions_qqr46System__Set_t17Grids_TGridOption_iuc_0_iuc_14_
mov edx, 0x15
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetDefRowHeightEx_qqrxi
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetDefaultDrawing_qqrxo
mov edx, 1
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetFixedColsEx_qqri
mov edx, 1
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetFixedRowsEx_qqri
mov eax, dword [ebx + 0x68]
mov edx, 0xfffffff5
call sub.vcl70.bpl__Graphics_TFont_SetHeight_qqri
mov eax, dword [ebx + 0x68]
mov edx, 0x5406b8
call sub.vcl70.bpl__Graphics_TFont_SetName_qqrx17System_AnsiString
mov eax, dword [ebx + 0x68]
mov dl, byte [0x5406c0]
call sub.vcl70.bpl__Graphics_TFont_SetStyle_qqr47System__Set_t19Graphics_TFontStyle_iuc_0_iuc_3_
mov edx, 1
mov eax, ebx
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetGridLineWidth_qqrxi
xor edx, edx
mov eax, ebx
call sub.vcl70.bpl__Controls_TControl_SetParentFont_qqro
mov dl, 3
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetScrollBarsEx_qqrx21Stdctrls_TScrollStyle
mov dx, 2
mov eax, ebx
call sub.vcl70.bpl__Controls_TWinControl_SetTabOrder_qqrs
mov edx, 0xc0c0c0
mov eax, ebx
call sub.TmsPack.bpl__Basegrid_TBaseGrid_SetGridLineColor_qqrx15Graphics_TColor
mov dl, 1
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetActiveCellShow_qqrxo
mov eax, dword [ebx + 0x1f3c]
mov dl, 1
call sub.vcl70.bpl__Graphics_TFont_SetCharset_qqruc
mov eax, dword [ebx + 0x1f3c]
mov edx, 0xff000008
call sub.vcl70.bpl__Graphics_TFont_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x1f3c]
mov edx, 0xfffffff5
call sub.vcl70.bpl__Graphics_TFont_SetHeight_qqri
mov eax, dword [ebx + 0x1f3c]
mov edx, 0x5406b8
call sub.vcl70.bpl__Graphics_TFont_SetName_qqrx17System_AnsiString
mov eax, dword [ebx + 0x1f3c]
mov dl, byte [0x5406c4]
call sub.vcl70.bpl__Graphics_TFont_SetStyle_qqr47System__Set_t19Graphics_TFontStyle_iuc_0_iuc_3_
mov edx, 0xffff
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetActiveCellColor_qqrx15Graphics_TColor
mov edx, 0x8000
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetActiveCellColorTo_qqrx15Graphics_TColor
mov eax, dword [ebx + 0x624]
mov dl, 1
call sub.TmsPack.bpl__Advgrid_TBands_SetActive_qqrxo
mov eax, dword [ebx + 0x624]
mov edx, 0xff000018
call sub.TmsPack.bpl__Advgrid_TBands_SetPrimaryColor_qqrx15Graphics_TColor
mov eax, dword [ebx + 0x624]
mov edx, 1
call sub.TmsPack.bpl__Advgrid_TBands_SetPrimaryLength_qqrxi
mov eax, dword [ebx + 0x624]
mov edx, 0xff000005
call sub.TmsPack.bpl__Advgrid_TBands_SetSecondaryColor_qqrx15Graphics_TColor
mov eax, dword [ebx + 0x624]
mov edx, 1
call sub.TmsPack.bpl__Advgrid_TBands_SetSecondaryLength_qqrxi
mov eax, dword [ebx + 0x624]
mov byte [eax + 4], 0
mov byte [ebx + 0x345], 0
mov dl, 1
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetAutoSizeP_qqro
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetVAlignment_qqr20Basegrid_TVAlignment
mov byte [ebx + 0x346], 0
mov byte [ebx + 0x353], 1
mov byte [ebx + 0x354], 0
mov byte [ebx + 0x355], 1
mov eax, dword [ebx + 0x1f6c]
mov byte [eax + 0xd], 1
mov byte [eax + 9], 1
mov eax, dword [ebx + 0x1f64]
mov byte [eax + 0x2c], 0
xor edx, edx
mov dword [eax + 0x24], edx
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TSortSettings_SetShow_qqrxo
mov eax, dword [ebx + 0x1f64]
mov byte [eax + 9], 1
mov dword [eax + 0x30], 0xffff
mov byte [eax + 0xa], 1
mov byte [eax + 0xb], 0
mov byte [eax + 0xc], 1
mov byte [eax + 0xd], 0
mov byte [eax + 0xe], 1
mov byte [eax + 0xf], 0
mov byte [eax + 0x34], 0
mov byte [eax + 0x21], 1
mov byte [eax + 0x20], 0
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TSortSettings_SetSortRow_qqrxi
mov eax, dword [ebx + 0x1f64]
mov byte [eax + 0x35], 1
mov eax, dword [ebx + 0x1f84]
mov edx, 0xff00000f
call sub.TmsPack.bpl__Advgrid_TFloatingFooter_SetColor_qqrx15Graphics_TColor
mov eax, dword [ebx + 0x1f84]
mov edx, 1
call sub.TmsPack.bpl__Advgrid_TFloatingFooter_SetColumn_qqrxi
mov eax, dword [ebx + 0x1f84]
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TFloatingFooter_SetFooterStyle_qqrx20Advgrid_TFooterStyle
mov eax, dword [ebx + 0x1f84]
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TFloatingFooter_SetVisible_qqrxo
mov eax, dword [ebx + 0x1f70]
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TControlLook_SetColor_qqrx15Graphics_TColor
mov eax, dword [ebx + 0x1f70]
mov edx, 0xff
call sub.TmsPack.bpl__Advgrid_TControlLook_SetCommentColor_qqrx15Graphics_TColor
mov eax, dword [ebx + 0x1f70]
mov edx, 0xf
call sub.TmsPack.bpl__Advgrid_TControlLook_SetCheckBoxSize_qqrxi
mov eax, dword [ebx + 0x1f70]
mov edx, 0xa
call sub.TmsPack.bpl__Advgrid_TControlLook_SetRadioSize_qqrxi
mov eax, dword [ebx + 0x1f70]
mov dl, 2
call sub.TmsPack.bpl__Advgrid_TControlLook_SetControlStyle_qqrx21Advgrid_TControlStyle
mov eax, dword [ebx + 0x1f70]
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TControlLook_SetDropDownAlwaysVisible_qqrxo
mov eax, dword [ebx + 0x1f70]
mov edx, 2
call sub.TmsPack.bpl__Advgrid_TControlLook_SetProgressMarginX_qqrxi
mov eax, dword [ebx + 0x1f70]
mov edx, 2
call sub.TmsPack.bpl__Advgrid_TControlLook_SetProgressMarginY_qqrxi
mov byte [ebx + 0x1faa], 0
mov byte [ebx + 0xcd8], 1
mov byte [ebx + 0xcd9], 1
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetFlat_qqrxo
mov dl, 4
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetLook_qqr17Advgrid_TGridLook
mov dword [ebx + 0x5a8], 0xff000018
mov edx, 0xeacab6
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetSelectionColor_qqr15Graphics_TColor
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetSelectionTextColor_qqr15Graphics_TColor
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetSelectionRectangle_qqro
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetSelectionResizer_qqrxo
mov byte [ebx + 0xc5d], 0
mov byte [ebx + 0x5ac], 0
mov byte [ebx + 0x5ad], 0
mov byte [ebx + 0x5ae], 0
mov eax, dword [ebx + 0x620]
mov dword [eax + 0x2c], 0x64
mov byte [eax + 0x34], 0
mov eax, dword [ebx + 0x628]
mov byte [eax + 6], 1
mov byte [eax + 7], 1
mov byte [eax + 0x12], 0
mov byte [eax + 0xb], 1
mov byte [eax + 0xe], 1
mov byte [eax + 0x22], 1
mov byte [eax + 0x18], 1
mov byte [eax + 0x11], 0
mov byte [eax + 0x1b], 1
mov byte [eax + 0x1a], 0
mov byte [eax + 0x20], 0
mov byte [eax + 0x1d], 0
mov byte [eax + 0x1f], 0
mov eax, dword [ebx + 0x634]
mov dword [eax + 4], 0xc0c0c0
mov byte [eax + 0x14], 0
xor edx, edx
mov dword [eax + 0xc], edx
mov edx, 0xc
call sub.TmsPack.bpl__Advgrid_TCellNode_SetNodeIndent_qqrxi
mov eax, dword [ebx + 0x634]
mov edx, 0xc0c0c0
call sub.TmsPack.bpl__Advgrid_TCellNode_SetTreeColor_qqrx15Graphics_TColor
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetMaxEditLength_qqrxi
mov eax, dword [ebx + 0x63c]
mov dl, 1
call sub.TmsPack.bpl__Advgrid_TMouseActions_SetDisjunctRowSelect_qqrxo
mov eax, dword [ebx + 0x63c]
mov byte [eax + 9], 1
mov byte [eax + 0x1e], 1
mov eax, dword [ebx + 0x640]
mov dword [eax + 8], 0x1fffffff
mov dword [eax + 0x10], 0x1fffffff
mov dword [eax + 0x14], 0x1fffffff
mov byte [eax + 4], 0
mov byte [eax + 5], 0
mov byte [eax + 0x18], 0
mov dword [eax + 0xc], 0x1fffffff
mov dword [eax + 0x20], 0x1fffffff
mov dword [eax + 0x1c], 0x1fffffff
mov byte [ebx + 0xc74], 0
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetScrollType_qqrx19Advgrid_TScrollType
mov edx, 0x1fffffff
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetScrollColor_qqrx15Graphics_TColor
mov edx, 0x11
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetScrollWidth_qqrxi
mov byte [ebx + 0xc80], 0
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetScrollProportional_qqro
mov byte [ebx + 0xc81], 0
mov byte [ebx + 0x348], 0
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetFixedFooters_qqri
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetFixedRightCols_qqri
mov edx, 0x40
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetFixedColWidth_qqri
mov edx, 0x15
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetFixedRowHeight_qqri
mov eax, dword [ebx + 0xca8]
mov dl, 1
call sub.vcl70.bpl__Graphics_TFont_SetCharset_qqruc
mov eax, dword [ebx + 0xca8]
mov edx, 0xff000008
call sub.vcl70.bpl__Graphics_TFont_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0xca8]
mov edx, 0xfffffff5
call sub.vcl70.bpl__Graphics_TFont_SetHeight_qqri
mov eax, dword [ebx + 0xca8]
mov edx, 0x5406b8
call sub.vcl70.bpl__Graphics_TFont_SetName_qqrx17System_AnsiString
mov eax, dword [ebx + 0xca8]
mov dl, byte [0x5406c4]
call sub.vcl70.bpl__Graphics_TFont_SetStyle_qqr47System__Set_t19Graphics_TFontStyle_iuc_0_iuc_3_
mov byte [ebx + 0xc8c], 0
lea eax, [ebx + 0xce8]
mov edx, 0x5406d0
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
xor edx, edx
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetIntegralHeight_qqrxo
mov dl, 1
mov eax, ebx
call sub.TmsPack.bpl__Advgrid_TAdvStringGrid_SetWordWrap_qqro
mov byte [ebx + 0x349], 0
mov byte [ebx + 0x34a], 0
mov byte [ebx + 0x352], 0
mov eax, dword [ebx + 0x5c0]
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TBackGround_SetTop_qqri
mov eax, dword [ebx + 0x5c0]
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TBackGround_SetLeft_qqri
mov eax, dword [ebx + 0x5c0]
xor edx, edx
call sub.TmsPack.bpl__Advgrid_TBackGround_SetBackGroundCells_qqrx24Advgrid_TBackGroundCells
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 eax, eax
push ebp
push 0x53f7d4
push dword fs:[eax]
mov dword fs:[eax], esp
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 eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
mov edx, dword [eax]
call dword [edx + 0x14c]
mov esi, eax
dec esi
test esi, esi
jl 0x53f7b6
inc esi
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
mov edx, 0x5406e0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x28]
mov ecx, dword [eax]
call dword [ecx + 0x60]
cmp dword [ebp - 0x28], 0
jne 0x53f7a1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
mov edx, 0x5406f0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
cmp dword [ebp - 0x2c], 0
je 0x53f7a1
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]
push 0x540700
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
mov edx, 0x5406f0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x34]
push 0x540728
lea eax, [ebp - 0x30]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x30]
push eax
mov eax, dword [ebp - 0x1c]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
mov edx, 0x540734
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x48]
lea eax, [ebp - 0x44]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x44]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
mov edx, 0x540734
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb4]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.dbrtl70.bpl__Db_TDataSet_CheckBrowseMode_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x364]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec esi
jne 0x53f697
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x53f7db
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
ret