Function at 0x6335e0
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x3c
push 0
push 0
dec ecx
jne 0x6335e9
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 - 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp + 0x10]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x634f5e
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 0xd], 0
cmp dword [ebp + 0xc], 0
jne 0x633646
mov ecx, 0x634f7c
mov edx, 0x634f8c
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
jmp 0x634db5
cmp dword [ebp + 8], 0
jne 0x633663
mov ecx, 0x634f7c
mov edx, 0x634fa4
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
jmp 0x634db5
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 - 0x38], 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 - 0x3c], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x1c], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x20], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
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 - 0x28], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x2c], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x30], eax
xor edx, edx
push ebp
push 0x634dae
push dword fs:[edx]
mov dword fs:[edx], esp
mov byte [ebp - 0xd], 0
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x8c]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 0x38]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x38]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x38]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x634fbc
mov eax, dword [ebp - 4]
push dword [eax + 0x54]
push 0x634fe8
push dword [ebp + 0x10]
push 0x635000
lea eax, [ebp - 0x54]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x54]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x38]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x8c]
mov eax, dword [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 0x3c]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x3c]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x3c]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x634fbc
mov eax, dword [ebp - 4]
push dword [eax + 0x54]
push 0x634fe8
push dword [ebp + 0x10]
push 0x635024
lea eax, [ebp - 0x58]
mov edx, 5
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 - 0x3c]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
lea edx, [ebp - 8]
mov ecx, dword [ebp - 0x28]
mov eax, 0x635048
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
lea edx, [ebp - 0xc]
mov ecx, dword [ebp - 0x2c]
mov eax, 0x635048
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
push 0
push 0x635054
push 0
push 0x635068
push 0
push 0
lea eax, [ebp - 0x14]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x54]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0x28]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x633a38
inc esi
mov dword [ebp - 0x34], 0
lea ecx, [ebp - 0x5c]
mov edx, dword [ebp - 0x34]
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x5c]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x633a2e
lea ecx, [ebp - 0x18]
mov edx, dword [ebp - 0x34]
mov eax, dword [ebp - 0x28]
mov ebx, dword [eax]
call dword [ebx + 0xc]
push 0
push 0x635074
push 0
push 0x635068
push 0
push 0
lea eax, [ebp - 0x60]
push eax
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
mov eax, dword [eax]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0x60]
mov edx, 0x635084
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x6338e5
lea edx, [ebp - 0x64]
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 - 0x64]
mov edx, 0x635090
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x64]
or ecx, 0xffffffff
mov eax, dword [ebp - 0x18]
call sub.PCommonUtil.bpl__Ncutil_ExcelToTxt_qqr17System_AnsiStringt1i
test al, al
je 0x633a2e
lea edx, [ebp - 0x68]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
mov edx, dword [ebp - 0x68]
lea eax, [ebp - 0x18]
mov ecx, 0x635090
call sub.rtl70.bpl__System__LStrCat3_qqrv
lea edx, [ebp - 0x6c]
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 - 0x6c]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x6c]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
push 0xffffffffffffffff
lea edx, [ebp - 0x70]
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 - 0x70]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x70]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CopyFileA
lea edx, [ebp - 0x74]
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 - 0x74]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x74]
call sub.PCommonUtil.bpl__Ncutil_Chagechar13_qqr17System_AnsiString
test al, al
jne 0x633970
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x634db5
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0x78]
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 - 0x78]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x78]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x68]
lea edx, [ebp - 0x7c]
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 - 0x7c]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x7c]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
mov eax, dword [ebp - 0x14]
mov edx, 0x6350bc
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x633a23
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x633a2e
inc eax
mov dword [ebp - 0x50], eax
xor ebx, ebx
lea ecx, [ebp - 0x80]
mov edx, ebx
mov eax, dword [ebp - 0x30]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x80]
lea edx, [ebp - 0x18]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0x18], 0
je 0x633a1b
lea edx, [ebp - 0x18]
xor ecx, ecx
mov eax, dword [ebp - 0x14]
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
dec dword [ebp - 0x50]
jne 0x6339e5
jmp 0x633a2e
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x40]
inc dword [ebp - 0x34]
dec esi
jne 0x633832
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x633ca7
inc esi
mov dword [ebp - 0x34], 0
lea ecx, [ebp - 0x84]
mov edx, dword [ebp - 0x34]
mov eax, dword [ebp - 0x2c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x84]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x633c9d
lea ecx, [ebp - 0x18]
mov edx, dword [ebp - 0x34]
mov eax, dword [ebp - 0x2c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
push 0
push 0x635074
push 0
push 0x635068
push 0
push 0
lea eax, [ebp - 0x88]
push eax
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
mov eax, dword [eax]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0x88]
mov edx, 0x635084
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x633b21
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, 0x635090
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x8c]
or ecx, 0xffffffff
mov eax, dword [ebp - 0x18]
call sub.PCommonUtil.bpl__Ncutil_ExcelToTxt_qqr17System_AnsiStringt1i
test al, al
je 0x633c9d
lea edx, [ebp - 0x90]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
mov edx, dword [ebp - 0x90]
lea eax, [ebp - 0x18]
mov ecx, 0x635090
call sub.rtl70.bpl__System__LStrCat3_qqrv
lea edx, [ebp - 0x94]
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 - 0x94]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x94]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
push 0xffffffffffffffff
lea edx, [ebp - 0x98]
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 - 0x98]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x98]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CopyFileA
lea edx, [ebp - 0x9c]
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 - 0x9c]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x9c]
call sub.PCommonUtil.bpl__Ncutil_Chagechar13_qqr17System_AnsiString
test al, al
jne 0x633bc7
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x634db5
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0xa0]
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 - 0xa0]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0xa0]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x68]
lea edx, [ebp - 0xa4]
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 - 0xa4]
mov edx, 0x6350a4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xa4]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
mov eax, dword [ebp - 0x14]
mov edx, 0x6350bc
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x633c92
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x633c9d
inc eax
mov dword [ebp - 0x50], eax
xor ebx, ebx
lea ecx, [ebp - 0xa8]
mov edx, ebx
mov eax, dword [ebp - 0x30]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0xa8]
lea edx, [ebp - 0x18]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0x18], 0
je 0x633c8a
lea edx, [ebp - 0x18]
xor ecx, ecx
mov eax, dword [ebp - 0x14]
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
dec dword [ebp - 0x50]
jne 0x633c4e
jmp 0x633c9d
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x40]
inc dword [ebp - 0x34]
dec esi
jne 0x633a53
push 0x6350c8
push 0x6350dc
push 0x6350ec
push 0x635068
push 0
push 0
lea eax, [ebp - 0x48]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x54]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
push 1
lea eax, [ebp - 0xac]
push eax
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x54]
mov edx, 0x635100
mov eax, dword [ebp - 0x48]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0xac]
lea eax, [ebp - 0x48]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0xb0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x58]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
lea edx, [ebp - 0xb4]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0xb4]
mov edx, 0x635110
mov eax, dword [ebp - 0x48]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0xb0]
lea eax, [ebp - 0x48]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x633d5d
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_refresh_qqrv
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x634db5
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x633d73
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x634db5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
test eax, eax
je 0x633dab
xor edx, edx
call sub.vcl70.bpl__Comctrls_TProgressBar_SetPosition_qqri
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x14]
mov ebx, eax
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
add ebx, eax
mov edx, ebx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
call sub.vcl70.bpl__Comctrls_TProgressBar_SetMax_qqri
lea edx, [ebp - 0xb8]
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 - 0xb8]
mov edx, 0x635120
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xb8]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
lea edx, [ebp - 0xbc]
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 - 0xbc]
mov edx, 0x635138
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xbc]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
lea edx, [ebp - 0xc0]
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 - 0xc0]
mov edx, 0x635120
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0xc0]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x74]
lea edx, [ebp - 0xc4]
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 - 0xc4]
mov edx, 0x635138
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0xc4]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x74]
lea ecx, [ebp - 0x18]
xor edx, edx
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0x18]
mov ecx, dword [ebp - 0x1c]
mov eax, 0x635150
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x44]
mov edx, 0x63515c
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x635174
push 0x635184
push 0
push 0x635068
push 0
push 0
lea eax, [ebp - 0xc8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x54]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0xc8]
mov edx, 0x635190
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x633eec
mov edx, 0x63519c
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x633ef9
mov edx, 0x6351b8
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6351d4
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6351f0
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x635208
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x635224
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x633f99
inc esi
xor ebx, ebx
push 0x635240
lea edx, [ebp - 0xd0]
lea edi, [ebx + 1]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xd0]
push 0x63524c
lea edx, [ebp - 0xd4]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xd4]
push 0x63525c
lea eax, [ebp - 0xcc]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xcc]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
dec esi
jne 0x633f3f
lea ecx, [ebp - 0x18]
xor edx, edx
mov eax, dword [ebp - 0x20]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0x18]
mov ecx, dword [ebp - 0x20]
mov eax, 0x635150
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov edx, 0x635278
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x635174
push 0x635184
push 0
push 0x635068
push 0
push 0
lea eax, [ebp - 0xd8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x54]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0xd8]
mov edx, 0x635190
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x634018
mov edx, 0x63519c
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x634025
mov edx, 0x6351b8
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6351d4
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6351f0
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x635208
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x635224
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x6340c5
inc esi
xor ebx, ebx
push 0x635240
lea edx, [ebp - 0xe0]
lea edi, [ebx + 1]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xe0]
push 0x63524c
lea edx, [ebp - 0xe4]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xe4]
push 0x63525c
lea eax, [ebp - 0xdc]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xdc]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
dec esi
jne 0x63406b
lea edx, [ebp - 0xe8]
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 - 0xe8]
mov edx, 0x635290
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0xe8]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x48]
xor eax, eax
push ebp
push 0x63416c
push dword fs:[eax]
mov dword fs:[eax], esp
mov al, byte [0x63529c]
push eax
lea eax, [ebp - 0xec]
push eax
push 0x6352a8
push dword [ebp - 0x48]
push dword [ebp + 0x10]
lea eax, [ebp - 0xf4]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xf4]
lea eax, [ebp - 0xf0]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0xf0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov cl, 1
call sub.adortl70.bpl__Adodb_TADOConnection_Execute_qqrx17System_WideStringx18Adodb_TCommandTypex48System__Set_t20Adodb_TExecuteOpt
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x634176
mov eax, dword [ebp - 4]
cmp byte [eax + 0x4a], 0
jne 0x6341f5
mov al, byte [0x63529c]
push eax
lea eax, [ebp - 0xf8]
push eax
push 0x6352c0
push dword [ebp - 0x48]
push dword [ebp + 0x10]
push 0x6352dc
lea edx, [ebp - 0x104]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
push dword [ebp - 0x104]
push 0x6352fc
lea eax, [ebp - 0x100]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x100]
lea eax, [ebp - 0xfc]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0xfc]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov cl, 1
call sub.adortl70.bpl__Adodb_TADOConnection_Execute_qqrx17System_WideStringx18Adodb_TCommandTypex48System__Set_t20Adodb_TExecuteOpt
jmp 0x6342f9
xor eax, eax
push ebp
push 0x63427e
push dword fs:[eax]
mov dword fs:[eax], esp
mov al, byte [0x63529c]
push eax
lea eax, [ebp - 0x108]
push eax
push 0x6352c0
push dword [ebp - 0x48]
push dword [ebp + 0x10]
push 0x635314
lea edx, [ebp - 0x114]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
push dword [ebp - 0x114]
push 0x635374
lea eax, [ebp - 0x110]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x110]
lea eax, [ebp - 0x10c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x10c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov cl, 1
call sub.adortl70.bpl__Adodb_TADOConnection_Execute_qqrx17System_WideStringx18Adodb_TCommandTypex48System__Set_t20Adodb_TExecuteOpt
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6342f9
xor eax, eax
push ebp
push 0x634360
push dword fs:[eax]
mov dword fs:[eax], esp
mov al, byte [0x63529c]
push eax
lea eax, [ebp - 0x128]
push eax
push 0x6353e8
push dword [ebp - 0x48]
push dword [ebp + 0x10]
lea eax, [ebp - 0x130]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x130]
lea eax, [ebp - 0x12c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x12c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov cl, 1
call sub.adortl70.bpl__Adodb_TADOConnection_Execute_qqrx17System_WideStringx18Adodb_TCommandTypex48System__Set_t20Adodb_TExecuteOpt
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x63436a
mov eax, dword [ebp - 4]
cmp byte [eax + 0x4a], 0
jne 0x6343e9
mov al, byte [0x63529c]
push eax
lea eax, [ebp - 0x134]
push eax
push 0x635400
push dword [ebp - 0x48]
push dword [ebp + 0x10]
push 0x6352dc
lea edx, [ebp - 0x140]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
push dword [ebp - 0x140]
push 0x63541c
lea eax, [ebp - 0x13c]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x13c]
lea eax, [ebp - 0x138]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x138]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov cl, 1
call sub.adortl70.bpl__Adodb_TADOConnection_Execute_qqrx17System_WideStringx18Adodb_TCommandTypex48System__Set_t20Adodb_TExecuteOpt
jmp 0x6344ed
xor eax, eax
push ebp
push 0x634472
push dword fs:[eax]
mov dword fs:[eax], esp
mov al, byte [0x63529c]
push eax
lea eax, [ebp - 0x144]
push eax
push 0x635400
push dword [ebp - 0x48]
push dword [ebp + 0x10]
push 0x635314
lea edx, [ebp - 0x150]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
push dword [ebp - 0x150]
push 0x635434
lea eax, [ebp - 0x14c]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x14c]
lea eax, [ebp - 0x148]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x148]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov cl, 1
call sub.adortl70.bpl__Adodb_TADOConnection_Execute_qqrx17System_WideStringx18Adodb_TCommandTypex48System__Set_t20Adodb_TExecuteOpt
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6344ed
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x48]
push 0x635464
push 0x63547c
push 0x635490
push 0x635068
push 0
push 0
lea eax, [ebp - 0x164]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x54]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0x164]
mov edx, 0x635190
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x6345ce
push 0
push 0x63549c
push 0
push 0x635068
push 0
push 0
lea eax, [ebp - 0x40]
push eax
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
mov eax, dword [eax]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
push 0
push 0x6354ac
push 0
push 0x635068
push 0
push 0
lea eax, [ebp - 0x44]
push eax
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
mov eax, dword [eax]
mov ecx, dword [ebp + 0x10]
xor edx, edx
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
cmp dword [ebp - 0x40], 0
jne 0x6345ae
push 0x6354bc
push dword [ebp - 0x48]
push dword [ebp + 0x10]
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x44], 0
jne 0x6345fe
push 0x6354d8
push dword [ebp - 0x48]
push dword [ebp + 0x10]
lea eax, [ebp - 0x44]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x6345fe
push 0x6354bc
push dword [ebp - 0x48]
push dword [ebp + 0x10]
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
push 0x6354d8
push dword [ebp - 0x48]
push dword [ebp + 0x10]
lea eax, [ebp - 0x44]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
push 1
lea eax, [ebp - 0x168]
push eax
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x54]
mov edx, 0x6354f4
mov eax, dword [ebp - 0x40]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x168]
lea eax, [ebp - 0x40]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x16c]
push eax
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x54]
mov edx, 0x6354f4
mov eax, dword [ebp - 0x44]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x16c]
lea eax, [ebp - 0x44]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov dword [ebp - 0x4c], eax
mov eax, dword [ebp + 0x10]
push eax
lea eax, [ebp - 0x40]
push eax
lea eax, [ebp - 0x44]
push eax
lea ecx, [ebp - 0x4c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa8]
mov edx, dword [ebp - 4]
call sym.P_Interface.bpl__Unit_developtools_tdevelop_exec_SETFILTERSQL_qqrp14System_TObjectrp20Adodb_TADOConnection17System_AnsiStringr
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 0x4c]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 0x4c]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp + 0xc]
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 + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
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 + 8]
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 + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x44]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp + 0xc]
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 + 8]
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 + 0xc]
mov eax, dword [eax + 0x2ec]
call sub.rtl70.bpl__Classes_TCollection_Clear_qqrv
mov eax, dword [ebp + 8]
mov eax, dword [eax + 0x2ec]
call sub.rtl70.bpl__Classes_TCollection_Clear_qqrv
mov al, byte [0x6354fc]
push eax
lea eax, [ebp - 0x17c]
mov edx, 0x635508
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x17c]
mov edx, 0x635524
mov eax, dword [ebp - 0x38]
mov ebx, dword [eax]
call dword [ebx + 0x244]
test al, al
je 0x6347b6
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
dec eax
push eax
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
pop edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x180]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x180]
mov eax, dword [ebp + 0x18]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
jmp 0x6347d2
mov ecx, 0x635534
mov edx, 0x634f7c
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x634db5
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x38]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x38]
mov edx, dword [eax]
call dword [edx + 0x14c]
mov esi, eax
dec esi
test esi, esi
jl 0x63491e
inc esi
mov eax, dword [ebp + 0xc]
mov eax, dword [eax + 0x2ec]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJDBGridColumns_Add_qqrv
mov edi, eax
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
mov ebx, eax
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
cmp ebx, eax
jle 0x634863
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x184]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x184]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
jmp 0x6348a6
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
dec eax
push eax
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
pop edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x188]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x188]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 0x635568
call sub.vcl70.bpl__Graphics_TFont_SetName_qqrx17System_AnsiString
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 8
call sub.vcl70.bpl__Graphics_TFont_SetSize_qqri
lea edx, [ebp - 0x18c]
mov eax, dword [edi + 0x10]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x18c]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x30]
mov edx, 4
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x190]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x190]
mov eax, dword [edi + 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0x38]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec esi
jne 0x6347f9
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
mov esi, eax
dec esi
test esi, esi
jl 0x634a3c
inc esi
xor ebx, ebx
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x198]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x198]
lea edx, [ebp - 0x194]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x194]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jge 0x634a34
mov eax, dword [ebp + 0xc]
mov eax, dword [eax + 0x2ec]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJDBGridColumns_Add_qqrv
mov edi, eax
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1a0]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x1a0]
lea edx, [ebp - 0x19c]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x19c]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 0x635568
call sub.vcl70.bpl__Graphics_TFont_SetName_qqrx17System_AnsiString
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1a8]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x1a8]
lea edx, [ebp - 0x1a4]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1a4]
mov eax, dword [edi + 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 8
call sub.vcl70.bpl__Graphics_TFont_SetSize_qqri
inc ebx
dec esi
jne 0x63493c
mov al, byte [0x6354fc]
push eax
lea eax, [ebp - 0x1b8]
mov edx, 0x635508
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x1b8]
mov edx, 0x635524
mov eax, dword [ebp - 0x3c]
mov ebx, dword [eax]
call dword [ebx + 0x244]
test al, al
je 0x634ab2
mov eax, dword [ebp - 0x3c]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
dec eax
push eax
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
pop edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1bc]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x1bc]
mov eax, dword [ebp + 0x14]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
jmp 0x634ace
mov ecx, 0x635578
mov edx, 0x634f7c
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x634db5
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x3c]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax]
call dword [edx + 0x14c]
mov esi, eax
dec esi
test esi, esi
jl 0x634c1a
inc esi
mov eax, dword [ebp + 8]
mov eax, dword [eax + 0x2ec]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJDBGridColumns_Add_qqrv
mov edi, eax
mov eax, dword [ebp - 0x3c]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
mov ebx, eax
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
cmp ebx, eax
jle 0x634b5f
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1c0]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x1c0]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
jmp 0x634ba2
mov eax, dword [ebp - 0x3c]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
dec eax
push eax
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
pop edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1c4]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x1c4]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 0x635568
call sub.vcl70.bpl__Graphics_TFont_SetName_qqrx17System_AnsiString
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 8
call sub.vcl70.bpl__Graphics_TFont_SetSize_qqri
lea edx, [ebp - 0x1c8]
mov eax, dword [edi + 0x10]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1c8]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x3c]
mov eax, dword [eax + 0x30]
mov edx, 4
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1cc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x1cc]
mov eax, dword [edi + 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0x3c]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec esi
jne 0x634af5
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
mov esi, eax
dec esi
test esi, esi
jl 0x634d38
inc esi
xor ebx, ebx
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1d4]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x1d4]
lea edx, [ebp - 0x1d0]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1d0]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jge 0x634d30
mov eax, dword [ebp + 8]
mov eax, dword [eax + 0x2ec]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJDBGridColumns_Add_qqrv
mov edi, eax
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1dc]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x1dc]
lea edx, [ebp - 0x1d8]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1d8]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 0x635568
call sub.vcl70.bpl__Graphics_TFont_SetName_qqrx17System_AnsiString
mov eax, dword [ebp + 8]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x1e4]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x1e4]
lea edx, [ebp - 0x1e0]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1e0]
mov eax, dword [edi + 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [edi + 0x1c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumnTitle_GetFont_qqrv
mov edx, 8
call sub.vcl70.bpl__Graphics_TFont_SetSize_qqri
inc ebx
dec esi
jne 0x634c38
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
test eax, eax
je 0x634d4c
xor edx, edx
call sub.vcl70.bpl__Comctrls_TProgressBar_SetPosition_qqri
mov byte [ebp - 0xd], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x634db5
mov eax, dword [ebp - 0x38]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x3c]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x1c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x20]
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 - 0x28]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x2c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x30]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x634f68
lea eax, [ebp - 0x1e4]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1b8]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x1a8]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x17c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x16c]
mov edx, 5
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x158]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x154]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x150]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x148]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x144]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x140]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x138]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x134]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x130]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x12c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x128]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x124]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x11c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x118]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x114]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x10c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x108]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x104]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xfc]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0xf8]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0xf4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xf0]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0xec]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0xe8]
mov edx, 0x26
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x18]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xc]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp + 0x10]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x48]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret