Function at 0x67ae20
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x23
push 0
push 0
dec ecx
jne 0x67ae28
push ecx
push ebx
push esi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x67bcaa
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 + 0x268]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_SetFPLBCode_qqr17System_AnsiString
lea edx, [ebp - 8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sym.P_Interface.bpl__Publicutil_GetFplbTableCode_qqr17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x274]
call sub.rtl70.bpl__System__DynArrayLength_qqrv
mov esi, eax
dec esi
test esi, esi
jl 0x67aebd
inc esi
xor ebx, ebx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x274]
mov edx, dword [edx + ebx*4]
cmp eax, dword [edx + 0xc]
jne 0x67aeb9
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x274]
mov eax, dword [eax + ebx*4]
mov dword [ebp - 0x1c], eax
inc ebx
dec esi
jne 0x67ae8b
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x278]
call sub.rtl70.bpl__System__DynArrayLength_qqrv
mov esi, eax
dec esi
test esi, esi
jl 0x67af07
inc esi
xor ebx, ebx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
mov edx, dword [edx + ebx*4]
cmp eax, dword [edx + 0xc]
jne 0x67af03
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x278]
mov eax, dword [eax + ebx*4]
mov dword [ebp - 0x20], eax
inc ebx
dec esi
jne 0x67aed5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x27c]
call sub.rtl70.bpl__System__DynArrayLength_qqrv
mov esi, eax
dec esi
test esi, esi
jl 0x67af51
inc esi
xor ebx, ebx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x27c]
mov edx, dword [edx + ebx*4]
cmp eax, dword [edx + 0xc]
jne 0x67af4d
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x27c]
mov eax, dword [eax + ebx*4]
mov dword [ebp - 0x24], eax
inc ebx
dec esi
jne 0x67af1f
mov byte [ebp - 0x25], 0
mov edx, dword [ebp - 0x20]
push edx
mov edx, dword [ebp - 0x24]
push edx
mov edx, dword [ebp - 4]
mov edx, dword [edx + 8]
push edx
lea edx, [ebp - 0x25]
push edx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov edx, eax
mov eax, dword [eax + 0xa8]
mov ecx, dword [ebp - 0x1c]
call sym.P_Interface.bpl__Unit_developtools_tdevelop_exec_PageChange_qqrp14System_TObjectt1t1t117System_AnsiStringro
cmp byte [ebp - 0x25], 0
jne 0x67bc77
push 0x67bcc0
mov eax, dword [ebp - 4]
push dword [eax + 0x268]
push 0x67bcd4
lea edx, [ebp - 0x34]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sym.P_Interface.bpl__Publicutil_GetFplbTableDesc_qqr17System_AnsiString
push dword [ebp - 0x34]
lea eax, [ebp - 0x30]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x30]
lea eax, [ebp - 0x2c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x2c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
xor ecx, ecx
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_of_output_debug_info_qqr17System_WideStringo
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x1b4]
push eax
lea edx, [ebp - 0x3c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x268]
call sym.P_Interface.bpl__Publicutil_GetFplbTableDesc_qqr17System_AnsiString
mov ecx, dword [ebp - 0x3c]
lea eax, [ebp - 0x38]
mov edx, 0x67bce0
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x38]
pop eax
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x108]
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 0x67bc67
mov eax, dword [ebp - 0x1c]
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 - 0x1c]
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 - 0x20]
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 - 0x20]
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 - 0x24]
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 - 0x24]
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]
push 0x67bcf4
push dword [ebp - 8]
push 0x67bd0c
mov eax, dword [ebp - 4]
push dword [eax + 0x26c]
lea eax, [ebp - 0xc]
mov edx, 4
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 - 0x10]
mov edx, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x67b2db
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x18], eax
xor eax, eax
push ebp
push 0x67b2d4
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0xc]
mov ecx, dword [ebp - 0x18]
mov eax, 0x67bd1c
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
lea ecx, [ebp - 0x44]
xor edx, edx
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x44]
lea ecx, [ebp - 0x40]
xor edx, edx
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x40]
push eax
mov eax, dword [ebp - 0x1c]
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 - 0x18]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
jle 0x67b1ac
lea ecx, [ebp - 0x4c]
mov edx, 1
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x4c]
lea ecx, [ebp - 0x48]
xor edx, edx
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x48]
push eax
mov eax, dword [ebp - 0x20]
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 - 0x18]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp eax, 2
jle 0x67b1f0
lea ecx, [ebp - 0x54]
mov edx, 2
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x54]
lea ecx, [ebp - 0x50]
xor edx, edx
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x50]
push eax
mov eax, dword [ebp - 0x24]
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 - 0x20]
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 0x67b257
mov eax, dword [ebp - 0x20]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67bd28
push dword [ebp - 8]
push 0x67bd40
mov eax, dword [ebp - 4]
push dword [eax + 0x26c]
push 0x67bd50
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67bd68
lea eax, [ebp - 0x58]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x58]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x24]
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 0x67b2be
mov eax, dword [ebp - 0x24]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67bd28
push dword [ebp - 8]
push 0x67bd74
mov eax, dword [ebp - 4]
push dword [eax + 0x26c]
push 0x67bd50
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67bd68
lea eax, [ebp - 0x5c]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x5c]
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 0x67b5a7
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
push 0x67bd8c
push 0x67bdb0
push 0x67bdc4
push 0x67bdd0
push 0
push 0
lea eax, [ebp - 0x60]
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 - 0x60]
mov edx, 0x67bddc
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x67b344
lea eax, [ebp - 0x64]
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 - 0x64]
mov edx, 0x67bdc4
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67b38f
push 0x67bde8
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67bdf8
lea eax, [ebp - 0x6c]
mov edx, 3
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 - 0x1c]
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 0x67b4ff
push 0x67bd8c
push 0x67bdb0
push 0x67bdc4
push 0x67bdd0
push 0
push 0
lea eax, [ebp - 0x70]
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 - 0x70]
mov edx, 0x67be14
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67b446
push 0x67bde8
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67be20
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov ecx, dword [eax + 0x58]
lea eax, [ebp - 0x80]
mov edx, 0x67be48
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0x80]
lea ecx, [ebp - 0x7c]
mov edx, 2
call sub.PCommonUtil.bpl__Ncutil_MyRightStr_qqr17System_AnsiStringi
push dword [ebp - 0x7c]
push 0x67be54
lea eax, [ebp - 0x78]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x78]
lea ecx, [ebp - 0x74]
mov eax, dword [ebp - 0xc]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x74]
push eax
mov eax, dword [ebp - 0x1c]
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 0x67b4ff
push 0x67bde8
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67be20
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
mov ecx, dword [eax + 0x58]
lea eax, [ebp - 0x90]
mov edx, 0x67be48
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0x90]
lea ecx, [ebp - 0x8c]
mov edx, 2
call sub.PCommonUtil.bpl__Ncutil_MyRightStr_qqr17System_AnsiStringi
push dword [ebp - 0x8c]
push 0x67be60
lea eax, [ebp - 0x94]
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 - 0x94]
push 0x67be54
lea eax, [ebp - 0x88]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x88]
lea ecx, [ebp - 0x84]
mov eax, dword [ebp - 0xc]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x84]
push eax
mov eax, dword [ebp - 0x1c]
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 - 0x20]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67bd28
push dword [ebp - 8]
push 0x67bd40
mov eax, dword [ebp - 4]
push dword [eax + 0x26c]
push 0x67bd50
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67be78
lea eax, [ebp - 0x98]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x98]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x24]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x67bd28
push dword [ebp - 8]
push 0x67bd74
mov eax, dword [ebp - 4]
push dword [eax + 0x26c]
push 0x67bd50
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x67be54
lea eax, [ebp - 0x9c]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x9c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0xa0]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0xa0]
mov eax, dword [ebp - 0x1c]
add eax, 0x340
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 0x20]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0xa4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0xa4]
mov eax, dword [ebp - 0x20]
add eax, 0x340
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 0x24]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0xa8]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0xa8]
mov eax, dword [ebp - 0x24]
add eax, 0x340
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 0x1c]
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 - 0x20]
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 - 0x24]
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]
push 0x67be84
push 0x67bea4
push 0x67bdc4
push 0x67bdd0
push 0
push 0
lea eax, [ebp - 0x14]
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
cmp dword [ebp - 0x14], 0
jne 0x67b6af
lea eax, [ebp - 0x14]
mov edx, 0x67bdc4
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x14]
mov edx, 0x67bddc
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67b7b9
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
cmp byte [eax + 0x3c], 2
jne 0x67b746
push 0x67beb8
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xb4]
mov eax, 0x67bed4
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0xb4]
push 0x67bee8
lea eax, [ebp - 0xb0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xb0]
lea ecx, [ebp - 0xac]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0xac]
push eax
mov eax, dword [ebp - 0x1c]
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 0x67b7b9
push 0x67bf04
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xc0]
mov eax, 0x67bed4
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0xc0]
push 0x67bf18
lea eax, [ebp - 0xbc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xbc]
lea ecx, [ebp - 0xb8]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0xb8]
push eax
mov eax, dword [ebp - 0x1c]
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, 0x67bdc4
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67b930
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
cmp byte [eax + 0x3c], 2
jne 0x67b88a
push 0x67beb8
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xd0]
mov eax, 0x67bf24
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov eax, dword [ebp - 0xd0]
call sub.rtl70.bpl__Sysutils_StrToDateTime_qqrx17System_AnsiString
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, 0xffffffee
call sub.rtl70.bpl__Dateutils_IncDay_qqrx16System_TDateTimexi
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xcc]
mov eax, 0x67bed4
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0xcc]
push 0x67bee8
lea eax, [ebp - 0xc8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xc8]
lea ecx, [ebp - 0xc4]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0xc4]
push eax
mov eax, dword [ebp - 0x1c]
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 0x67b930
push 0x67bf04
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xe0]
mov eax, 0x67bf24
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov eax, dword [ebp - 0xe0]
call sub.rtl70.bpl__Sysutils_StrToDateTime_qqrx17System_AnsiString
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, 0xffffffee
call sub.rtl70.bpl__Dateutils_IncDay_qqrx16System_TDateTimexi
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xdc]
mov eax, 0x67bed4
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0xdc]
push 0x67bf18
lea eax, [ebp - 0xd8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xd8]
lea ecx, [ebp - 0xd4]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0xd4]
push eax
mov eax, dword [ebp - 0x1c]
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, 0x67be14
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67baa7
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
cmp byte [eax + 0x3c], 2
jne 0x67ba01
push 0x67beb8
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xf0]
mov eax, 0x67bf24
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov eax, dword [ebp - 0xf0]
call sub.rtl70.bpl__Sysutils_StrToDateTime_qqrx17System_AnsiString
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, 0xffffffd0
call sub.rtl70.bpl__Dateutils_IncDay_qqrx16System_TDateTimexi
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xec]
mov eax, 0x67bed4
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0xec]
push 0x67bee8
lea eax, [ebp - 0xe8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xe8]
lea ecx, [ebp - 0xe4]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0xe4]
push eax
mov eax, dword [ebp - 0x1c]
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 0x67baa7
push 0x67bf04
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x100]
mov eax, 0x67bf24
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov eax, dword [ebp - 0x100]
call sub.rtl70.bpl__Sysutils_StrToDateTime_qqrx17System_AnsiString
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, 0xffffffd0
call sub.rtl70.bpl__Dateutils_IncDay_qqrx16System_TDateTimexi
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xfc]
mov eax, 0x67bed4
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0xfc]
push 0x67bf18
lea eax, [ebp - 0xf8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xf8]
lea ecx, [ebp - 0xf4]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0xf4]
push eax
mov eax, dword [ebp - 0x1c]
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, 0x67bf38
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x67bb33
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x254]
cmp byte [eax + 0x3c], 2
jne 0x67bafd
lea ecx, [ebp - 0x104]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
mov edx, 0x67bf44
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x104]
push eax
mov eax, dword [ebp - 0x1c]
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 0x67bb33
lea ecx, [ebp - 0x108]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x340]
mov edx, 0x67bf44
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x108]
push eax
mov eax, dword [ebp - 0x1c]
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]
lea ecx, [ebp - 0x10c]
mov eax, dword [ebp - 0x20]
mov eax, dword [eax + 0x340]
mov edx, 0x67bf54
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x10c]
push eax
mov eax, dword [ebp - 0x20]
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]
lea ecx, [ebp - 0x110]
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x340]
mov edx, 0x67bf54
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x110]
push eax
mov eax, dword [ebp - 0x24]
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 - 0x1c]
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 - 0x20]
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 - 0x24]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
push 1
lea eax, [ebp - 0x114]
mov ecx, 0x67bd0c
mov edx, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x114]
mov eax, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov eax, dword [eax]
mov edx, dword [ebp - 0x1c]
call sym.P_Interface.bpl__Publicutil_SETgridTITLe_qqrp20Adodb_TADOConnectionp21Mydbgrid_TMyNewDBGRID17System_AnsiStringo
push 1
lea eax, [ebp - 0x118]
mov ecx, 0x67bd40
mov edx, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x118]
mov eax, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call sym.P_Interface.bpl__Publicutil_SETgridTITLe_qqrp20Adodb_TADOConnectionp21Mydbgrid_TMyNewDBGRID17System_AnsiStringo
push 1
lea eax, [ebp - 0x11c]
mov ecx, 0x67bd74
mov edx, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x11c]
mov eax, dword [sym.P_Interface.bpl__Publicutil_ADOConn]
mov eax, dword [eax]
mov edx, dword [ebp - 0x24]
call sym.P_Interface.bpl__Publicutil_SETgridTITLe_qqrp20Adodb_TADOConnectionp21Mydbgrid_TMyNewDBGRID17System_AnsiStringo
mov eax, dword [ebp - 0x1c]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_LoadLayerConfig_qqrv
mov eax, dword [ebp - 0x20]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_LoadLayerConfig_qqrv
mov eax, dword [ebp - 0x24]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_LoadLayerConfig_qqrv
jmp 0x67bc77
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 0x67bcb1
lea eax, [ebp - 0x11c]
mov edx, 0x3c
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x2c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x14]
mov edx, 4
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret