Function at 0x67e464
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x14
push 0
push 0
dec ecx
jne 0x67e46c
push ebx
push esi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x67f0a0
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Unit_tabpub_TPubTab_PageChange_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x108]
mov ebx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x1b4]
push eax
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sym.P_Interface.bpl__Publicutil_GetFplbTableDesc_qqr17System_AnsiString
mov ecx, dword [ebp - 0x20]
lea eax, [ebp - 0x1c]
mov edx, 0x67f0b8
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x1c]
pop eax
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x268]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_SetFPLBCode_qqr17System_AnsiString
mov byte [ebp - 0x15], 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 8]
push eax
lea eax, [ebp - 0x15]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov ecx, dword [edx + eax*4]
mov eax, dword [ebp - 4]
mov esi, dword [eax + 0x254]
mov edx, esi
mov eax, dword [esi + 0xa8]
call sym.P_Interface.bpl__Unit_developtools_tdevelop_exec_PageChange_qqrp14System_TObjectt1t1t117System_AnsiStringro
cmp byte [ebp - 0x15], 0
jne 0x67f075
mov eax, ebx
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetActive_qqrv
test al, al
jne 0x67f065
lea edx, [ebp - 8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
push 0x67f0cc
push dword [ebp - 8]
push 0x67f0e4
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x10]
mov edx, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea edx, [ebp - 0xc]
push edx
mov edx, dword [ebp - 4]
mov ecx, dword [edx + 8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov edx, eax
mov eax, dword [eax + 0xa8]
call sym.P_Interface.bpl__Unit_developtools_tdevelop_exec_SetDataViewSQL_qqrp14System_TObject17System_AnsiStringr17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x10]
mov edx, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x67e95d
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x14], eax
xor eax, eax
push ebp
push 0x67e956
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0xc]
mov ecx, dword [ebp - 0x14]
mov eax, 0x67f0f4
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
lea ecx, [ebp - 0x28]
xor edx, edx
mov eax, dword [ebp - 0x14]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x28]
lea ecx, [ebp - 0x24]
xor edx, edx
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x24]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
jle 0x67e7cd
lea ecx, [ebp - 0x30]
mov edx, 1
mov eax, dword [ebp - 0x14]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x30]
lea ecx, [ebp - 0x2c]
xor edx, edx
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x2c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp eax, 2
jle 0x67e82a
lea ecx, [ebp - 0x38]
mov edx, 2
mov eax, dword [ebp - 0x14]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x38]
lea ecx, [ebp - 0x34]
xor edx, edx
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x34]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x67e8b5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67f100
push dword [ebp - 8]
push 0x67f118
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67f138
lea eax, [ebp - 0x3c]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x67e940
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67f100
push dword [ebp - 8]
push 0x67f144
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67f138
lea eax, [ebp - 0x40]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x40]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x67ec64
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
push 0x67f168
push 0x67f18c
push 0x67f1a0
push 0x67f1ac
push 0
push 0
lea eax, [ebp - 0x44]
push eax
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
mov eax, dword [eax]
xor ecx, ecx
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0x44]
mov edx, 0x67f1b8
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x67e9c6
lea eax, [ebp - 0x48]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov eax, dword [eax + 0x60]
mov ecx, 1
mov edx, 1
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x48]
mov edx, 0x67f1a0
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67ea2a
push 0x67f1c4
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67f1d4
lea eax, [ebp - 0x50]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x50]
lea ecx, [ebp - 0x4c]
mov eax, dword [ebp - 0xc]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x4c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x67ebb2
push 0x67f168
push 0x67f18c
push 0x67f1a0
push 0x67f1ac
push 0
push 0
lea eax, [ebp - 0x54]
push eax
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
mov eax, dword [eax]
xor ecx, ecx
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0x54]
mov edx, 0x67f1f0
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67eafe
push 0x67f1c4
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67f1fc
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov ecx, dword [eax + 0x58]
lea eax, [ebp - 0x64]
mov edx, 0x67f224
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0x64]
lea ecx, [ebp - 0x60]
mov edx, 2
call sub.PCommonUtil.bpl__Ncutil_MyRightStr_qqr17System_AnsiStringi
push dword [ebp - 0x60]
push 0x67f230
lea eax, [ebp - 0x5c]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x5c]
lea ecx, [ebp - 0x58]
mov eax, dword [ebp - 0xc]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x67ebb2
push 0x67f1c4
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67f1fc
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov ecx, dword [eax + 0x58]
lea eax, [ebp - 0x74]
mov edx, 0x67f224
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0x74]
lea ecx, [ebp - 0x70]
mov edx, 2
call sub.PCommonUtil.bpl__Ncutil_MyRightStr_qqr17System_AnsiStringi
push dword [ebp - 0x70]
push 0x67f23c
lea eax, [ebp - 0x78]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov eax, dword [eax + 0x60]
xor ecx, ecx
mov edx, 2
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
push dword [ebp - 0x78]
push 0x67f230
lea eax, [ebp - 0x6c]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x6c]
lea ecx, [ebp - 0x68]
mov eax, dword [ebp - 0xc]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x68]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67f100
push dword [ebp - 8]
push 0x67f118
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67f138
lea eax, [ebp - 0x7c]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x7c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67f100
push dword [ebp - 8]
push 0x67f144
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67f138
lea eax, [ebp - 0x80]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x80]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
add eax, 0x340
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0x84]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x84]
pop eax
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
add eax, 0x340
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0x88]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x88]
pop eax
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
add eax, 0x340
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0x8c]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x8c]
pop eax
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
mov eax, dword [eax + 0x340]
lea ecx, [ebp - 0x90]
mov edx, 0x67f254
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x90]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
mov eax, dword [eax + 0x340]
lea ecx, [ebp - 0x94]
mov edx, 0x67f254
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x94]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
push 1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
push eax
lea eax, [ebp - 0x98]
mov ecx, 0x67f0e4
mov edx, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x98]
mov eax, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov eax, dword [eax]
pop edx
call sym.P_Interface.bpl__Publicutil_SETgridTITLe_qqrp20Adodb_TADOConnectionp21Mydbgrid_TMyNewDBGRID17System_AnsiStringo
push 1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
push eax
lea eax, [ebp - 0x9c]
mov ecx, 0x67f264
mov edx, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x9c]
mov eax, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov eax, dword [eax]
pop edx
call sym.P_Interface.bpl__Publicutil_SETgridTITLe_qqrp20Adodb_TADOConnectionp21Mydbgrid_TMyNewDBGRID17System_AnsiStringo
push 1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
push eax
lea eax, [ebp - 0xa0]
mov ecx, 0x67f274
mov edx, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0xa0]
mov eax, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov eax, dword [eax]
pop edx
call sym.P_Interface.bpl__Publicutil_SETgridTITLe_qqrp20Adodb_TADOConnectionp21Mydbgrid_TMyNewDBGRID17System_AnsiStringo
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x270]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_LoadLayerConfig_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_LoadLayerConfig_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov eax, dword [edx + eax*4]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_LoadLayerConfig_qqrv
jmp 0x67f075
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x108]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_refresh_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x67f0a7
lea eax, [ebp - 0xa0]
mov edx, 0x22
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x10]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret