Function at 0x6355a4
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x5c
push 0
push 0
dec ecx
jne 0x6355ad
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 + 0x10]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x637b0f
push dword fs:[eax]
mov dword fs:[eax], esp
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 - 0x40], 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 - 0x44], eax
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
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 - 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
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x34], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x3c], eax
mov byte [ebp - 0xd], 0
xor edx, edx
push ebp
push 0x637838
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x637792
push dword fs:[edx]
mov dword fs:[edx], esp
mov byte [ebp - 0xd], 0
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 8]
mov ecx, dword [ebp - 0x3c]
mov eax, 0x637b30
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x8c]
mov eax, dword [ebp - 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 0x40]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x40]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x40]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x637b3c
mov eax, dword [ebp - 4]
push dword [eax + 0x54]
push 0x637b68
push dword [ebp + 0x10]
push 0x637b80
lea eax, [ebp - 0x88]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x88]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x40]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x8c]
mov eax, dword [ebp - 0x44]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 0x44]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x44]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x44]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x637b3c
mov eax, dword [ebp - 4]
push dword [eax + 0x54]
push 0x637b68
push dword [ebp + 0x10]
push 0x637ba4
lea eax, [ebp - 0x8c]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x8c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x44]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
push 0
push 0x637bc8
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x20]
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
cmp dword [ebp - 0x20], 0
jne 0x6357d3
mov ecx, 0x637be8
mov edx, 0x637c18
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x6357f1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov eax, dword [ebp - 4]
cmp dword [eax + 0x90], 0
je 0x635825
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
xor edx, edx
call sub.vcl70.bpl__Comctrls_TProgressBar_SetPosition_qqri
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
call sub.vcl70.bpl__Comctrls_TProgressBar_SetMax_qqri
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x63605c
inc esi
mov dword [ebp - 0x18], 0
lea ecx, [ebp - 0x90]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x3c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x90]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x636052
lea ecx, [ebp - 8]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x3c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
push 0
push 0x637c28
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x94]
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 - 0x94]
mov edx, 0x637c38
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x63590e
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, 0x637c44
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x98]
or ecx, 0xffffffff
mov eax, dword [ebp - 8]
call sub.PCommonUtil.bpl__Ncutil_ExcelToTxt_qqr17System_AnsiStringt1i
test al, al
je 0x636052
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
mov edx, dword [ebp - 0x9c]
lea eax, [ebp - 8]
mov ecx, 0x637c44
call sub.rtl70.bpl__System__LStrCat3_qqrv
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, 0x637c58
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xa0]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
push 0xffffffffffffffff
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, 0x637c58
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xa4]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CopyFileA
lea edx, [ebp - 0xa8]
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 - 0xa8]
mov edx, 0x637c58
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xa8]
call sub.PCommonUtil.bpl__Ncutil_Chagechar13_qqr17System_AnsiString
test al, al
jne 0x6359bc
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
lea edx, [ebp - 0xac]
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 - 0xac]
mov edx, 0x637c58
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0xac]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x68]
lea edx, [ebp - 0xb0]
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 - 0xb0]
mov edx, 0x637c58
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xb0]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
xor eax, eax
mov dword [ebp - 0x28], eax
xor ebx, ebx
lea edx, [ebp - 0xb8]
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0xb8]
lea ecx, [ebp - 0xb4]
mov eax, 5
call sub.PCommonUtil.bpl__Ncutil_MyFormatNumber_qqri17System_AnsiString
mov eax, dword [ebp - 0xb4]
push eax
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0xbc]
mov eax, 0x637c70
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov edx, dword [ebp - 0xbc]
lea eax, [ebp - 0x48]
pop ecx
call sub.rtl70.bpl__System__LStrCat3_qqrv
jmp 0x636042
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
test eax, eax
je 0x635a9e
call sub.vcl70.bpl__Comctrls_TProgressBar_StepIt_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
mov edx, dword [eax]
call dword [edx + 0x80]
lea ecx, [ebp - 0x1c]
mov edx, ebx
mov eax, dword [ebp - 0x14]
mov edi, dword [eax]
call dword [edi + 0xc]
lea ecx, [ebp - 0xc4]
mov edx, ebx
mov eax, dword [ebp - 0x14]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0xc4]
lea edx, [ebp - 0xc0]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0xc0], 0
jne 0x635adb
inc ebx
jmp 0x636042
mov eax, dword [ebp - 0x20]
mov edx, 0x637c80
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x635b10
push 1
lea eax, [ebp - 0xc8]
push eax
xor ecx, ecx
mov edx, 0x637c8c
mov eax, dword [ebp - 0x1c]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0xc8]
lea eax, [ebp - 0x1c]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0x1c]
mov ecx, dword [ebp - 0x24]
mov eax, dword [ebp - 0x20]
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
push 0
push 0x637c98
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0xcc]
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 - 0xcc]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
sub eax, 1
jb 0x635b7a
je 0x635daa
dec eax
je 0x635eb9
dec eax
je 0x635f65
jmp 0x636041
cmp dword [ebp - 0x28], 1
jge 0x635cf3
push 0
push 0x637cac
push 0x637cbc
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0xd0]
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 - 0xd0]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edi, eax
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp edi, eax
jle 0x635bcf
inc ebx
jmp 0x636042
push 0
push 0x637cac
push 0x637cbc
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0xdc]
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 - 0xdc]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, eax
dec edx
lea ecx, [ebp - 0xd8]
mov eax, dword [ebp - 0x24]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0xd8]
lea edx, [ebp - 0xd4]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0xd4]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
mov dword [ebp - 0x28], eax
cmp dword [ebp - 0x28], 0
jne 0x635c44
inc ebx
jmp 0x636042
mov eax, dword [ebp - 0x40]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov al, byte [0x637cc0]
push eax
lea eax, [ebp - 0xec]
mov edx, 0x637ccc
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0xec]
mov edx, 0x637ce8
mov eax, dword [ebp - 0x40]
mov edi, dword [eax]
call dword [edi + 0x244]
test al, al
je 0x635ca1
mov eax, dword [ebp - 0x40]
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 edx, eax
dec edx
lea ecx, [ebp - 0x48]
mov eax, dword [ebp - 0x24]
mov edi, dword [eax]
call dword [edi + 0xc]
jmp 0x635cc5
mov ecx, 0x637cf8
mov edx, 0x637c18
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jge 0x636042
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x636041
dec dword [ebp - 0x28]
mov eax, dword [ebp - 0x44]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov al, byte [0x637cc0]
push eax
lea eax, [ebp - 0xfc]
mov edx, 0x637ccc
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0xfc]
mov edx, 0x637ce8
mov eax, dword [ebp - 0x44]
mov edi, dword [eax]
call dword [edi + 0x244]
test al, al
je 0x635d76
mov eax, dword [ebp - 0x44]
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 edi, eax
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp edi, eax
jle 0x635d9a
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push dword [ebp - 0x48]
push 0x637c8c
push dword [ebp - 0x1c]
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x635d9a
mov ecx, 0x637d2c
mov edx, 0x637c18
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x636041
mov eax, dword [ebp - 0x40]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov al, byte [0x637cc0]
push eax
lea eax, [ebp - 0x10c]
mov edx, 0x637ccc
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x10c]
mov edx, 0x637ce8
mov eax, dword [ebp - 0x40]
mov edi, dword [eax]
call dword [edi + 0x244]
test al, al
je 0x635e4f
mov eax, dword [ebp - 0x40]
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 edi, eax
dec edi
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp edi, eax
jl 0x635e2a
mov ecx, 0x637d60
mov edx, 0x637c18
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov eax, dword [ebp - 0x40]
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 edx, eax
dec edx
lea ecx, [ebp - 0x48]
mov eax, dword [ebp - 0x24]
mov edi, dword [eax]
call dword [edi + 0xc]
jmp 0x635e73
mov ecx, 0x637cf8
mov edx, 0x637c18
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jl 0x635e93
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
jmp 0x636042
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x636041
lea edx, [ebp - 0x114]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x114]
lea ecx, [ebp - 0x110]
mov eax, 5
call sub.PCommonUtil.bpl__Ncutil_MyFormatNumber_qqri17System_AnsiString
mov eax, dword [ebp - 0x110]
push eax
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x118]
mov eax, 0x637c70
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov edx, dword [ebp - 0x118]
lea eax, [ebp - 0x48]
pop ecx
call sub.rtl70.bpl__System__LStrCat3_qqrv
push dword [ebp - 0x48]
push 0x637c8c
push dword [ebp - 0x1c]
lea eax, [ebp - 0x11c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x11c]
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push dword [ebp - 0x48]
push 0x637c8c
push dword [ebp - 0x1c]
lea eax, [ebp - 0x120]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x120]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x636041
cmp dword [ebp - 0x28], 0
jne 0x635fb1
push 0x637d98
push 0x637da8
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x124]
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 - 0x124]
mov edx, 0x637cbc
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x635fb1
inc dword [ebp - 0x28]
jmp 0x636042
inc dword [ebp - 0x28]
mov edx, dword [ebp - 0x48]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jl 0x635fef
push dword [ebp - 0x48]
push 0x637c8c
push dword [ebp - 0x1c]
lea eax, [ebp - 0x128]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x128]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
jmp 0x636042
push dword [ebp - 0x48]
push 0x637c8c
push dword [ebp - 0x1c]
lea eax, [ebp - 0x12c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x12c]
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push dword [ebp - 0x48]
push 0x637c8c
push dword [ebp - 0x1c]
lea eax, [ebp - 0x130]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x130]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp ebx, eax
jl 0x635a7b
inc dword [ebp - 0x18]
dec esi
jne 0x635840
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x6360a8
mov eax, dword [ebp + 0xc]
mov edx, dword [sym.imp.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_]
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x636096
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetActive_qqrv
cmp al, 1
jne 0x636096
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_refresh_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x6360c6
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
lea edx, [ebp - 0x134]
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 - 0x134]
mov edx, 0x637db4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x134]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
lea edx, [ebp - 0x138]
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 - 0x138]
mov edx, 0x637dcc
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x138]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
lea edx, [ebp - 0x13c]
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 - 0x13c]
mov edx, 0x637db4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x13c]
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x74]
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
lea eax, [ebp - 0x140]
mov edx, 0x637dcc
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x140]
mov eax, dword [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x63619e
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
lea ecx, [ebp - 8]
xor edx, edx
mov eax, dword [ebp - 0x2c]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 8]
mov ecx, dword [ebp - 0x2c]
mov eax, 0x637c8c
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x38], eax
mov eax, dword [ebp - 0x38]
mov edx, dword [eax]
call dword [edx + 0x44]
mov edx, 0x637de4
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x637d98
push 0x637da8
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x144]
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 - 0x144]
mov edx, 0x637cbc
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x63626f
push 0
push 0x637c98
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x148]
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 - 0x148]
xor edx, edx
call sub.rtl70.bpl__Sysutils_StrToIntDef_qqrx17System_AnsiStringi
cmp eax, 3
je 0x63626f
mov edx, 0x637dfc
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x63627c
mov edx, 0x637e18
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e34
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e50
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e68
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e84
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x2c]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x63631c
inc esi
xor ebx, ebx
push 0x637ea0
lea edx, [ebp - 0x150]
lea edi, [ebx + 1]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x150]
push 0x637eac
lea edx, [ebp - 0x154]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x154]
push 0x637ebc
lea eax, [ebp - 0x14c]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x14c]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
dec esi
jne 0x6362c2
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x63633a
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
lea ecx, [ebp - 8]
xor edx, edx
mov eax, dword [ebp - 0x30]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 8]
mov ecx, dword [ebp - 0x30]
mov eax, 0x637c8c
call sub.PCommonUtil.bpl__Ncutil_of_createlist_qqr17System_AnsiStringr17System_AnsiStringp19Classes_TStringList
mov edx, 0x637ed8
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x637d98
push 0x637da8
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x158]
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 - 0x158]
mov edx, 0x637cbc
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x6363b9
mov edx, 0x637dfc
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x6363c6
mov edx, 0x637e18
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e34
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e50
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e68
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x637e84
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x636466
inc esi
xor ebx, ebx
push 0x637ea0
lea edx, [ebp - 0x160]
lea edi, [ebx + 1]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x160]
push 0x637eac
lea edx, [ebp - 0x164]
mov eax, edi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x164]
push 0x637ebc
lea eax, [ebp - 0x15c]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x15c]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
dec esi
jne 0x63640c
lea edx, [ebp - 0x168]
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 - 0x168]
mov edx, 0x637ef0
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x168]
mov eax, dword [ebp - 0x38]
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]
push 0x637f04
push 0x637f18
push 0x637f28
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x68]
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 - 0x16c]
push eax
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x54]
mov edx, 0x637f3c
mov eax, dword [ebp - 0x68]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x16c]
lea eax, [ebp - 0x68]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x170]
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 - 0x174]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x174]
mov edx, 0x637f4c
mov eax, dword [ebp - 0x68]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x170]
lea eax, [ebp - 0x68]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x178]
mov edx, dword [ebp - 0x68]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x178]
xor ecx, ecx
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_of_output_debug_info_qqr17System_WideStringo
xor eax, eax
push ebp
push 0x6365c3
push dword fs:[eax]
mov dword fs:[eax], esp
mov al, byte [0x637f54]
push eax
lea eax, [ebp - 0x17c]
push eax
push 0x637f60
push dword [ebp - 0x68]
push dword [ebp + 0x10]
lea eax, [ebp - 0x184]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x184]
lea eax, [ebp - 0x180]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x180]
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 0x6365dc
mov eax, dword [ebp - 4]
cmp byte [eax + 0x4a], 0
jne 0x636712
xor eax, eax
push ebp
push 0x6366d3
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x637f78
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637f94
lea edx, [ebp - 0x190]
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 - 0x190]
push 0x637fb4
lea eax, [ebp - 0x18c]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x18c]
lea eax, [ebp - 0x188]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x188]
xor ecx, ecx
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_of_output_debug_info_qqr17System_WideStringo
mov al, byte [0x637f54]
push eax
lea eax, [ebp - 0x194]
push eax
push 0x637f78
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637f94
lea edx, [ebp - 0x1a0]
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 - 0x1a0]
push 0x637fb4
lea eax, [ebp - 0x19c]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x19c]
lea eax, [ebp - 0x198]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x198]
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 0x6368d5
xor eax, eax
push ebp
push 0x6367fc
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x637f78
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637fcc
lea edx, [ebp - 0x1b0]
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 - 0x1b0]
push 0x63802c
lea eax, [ebp - 0x1ac]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1ac]
lea eax, [ebp - 0x1a8]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1a8]
xor ecx, ecx
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_of_output_debug_info_qqr17System_WideStringo
mov al, byte [0x637f54]
push eax
lea eax, [ebp - 0x1b4]
push eax
push 0x637f78
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637fcc
lea edx, [ebp - 0x1c0]
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 - 0x1c0]
push 0x63802c
lea eax, [ebp - 0x1bc]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1bc]
lea eax, [ebp - 0x1b8]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1b8]
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 0x6368d5
xor eax, eax
push ebp
push 0x63693c
push dword fs:[eax]
mov dword fs:[eax], esp
mov al, byte [0x637f54]
push eax
lea eax, [ebp - 0x1e0]
push eax
push 0x6380a0
push dword [ebp - 0x68]
push dword [ebp + 0x10]
lea eax, [ebp - 0x1e8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1e8]
lea eax, [ebp - 0x1e4]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1e4]
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 0x636946
mov eax, dword [ebp - 4]
cmp byte [eax + 0x4a], 0
jne 0x636a7c
xor eax, eax
push ebp
push 0x636a3d
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x6380b8
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637f94
lea edx, [ebp - 0x1f4]
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 - 0x1f4]
push 0x6380d4
lea eax, [ebp - 0x1f0]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1f0]
lea eax, [ebp - 0x1ec]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1ec]
xor ecx, ecx
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_of_output_debug_info_qqr17System_WideStringo
mov al, byte [0x637f54]
push eax
lea eax, [ebp - 0x1f8]
push eax
push 0x6380b8
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637f94
lea edx, [ebp - 0x204]
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 - 0x204]
push 0x6380d4
lea eax, [ebp - 0x200]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x200]
lea eax, [ebp - 0x1fc]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1fc]
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 0x636bde
xor eax, eax
push ebp
push 0x636b63
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x6380b8
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637fcc
lea edx, [ebp - 0x214]
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 - 0x214]
push 0x6380ec
lea eax, [ebp - 0x210]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x210]
lea eax, [ebp - 0x20c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x20c]
xor ecx, ecx
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_of_output_debug_info_qqr17System_WideStringo
mov al, byte [0x637f54]
push eax
lea eax, [ebp - 0x218]
push eax
push 0x6380b8
push dword [ebp - 0x68]
push dword [ebp + 0x10]
push 0x637fcc
lea edx, [ebp - 0x224]
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 - 0x224]
push 0x6380ec
lea eax, [ebp - 0x220]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x220]
lea eax, [ebp - 0x21c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x21c]
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 0x636bde
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x48]
push 0x63811c
push 0x638134
push 0x638148
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x238]
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 - 0x238]
mov edx, 0x637cbc
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x636cbf
push 0
push 0x638154
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x4c]
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 0x638164
push 0
push 0x637bdc
push 0
push 0
lea eax, [ebp - 0x50]
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 - 0x4c], 0
jne 0x636c9f
push 0x638174
push dword [ebp - 0x68]
push dword [ebp + 0x10]
lea eax, [ebp - 0x4c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
cmp dword [ebp - 0x50], 0
jne 0x636cef
push 0x638190
push dword [ebp - 0x68]
push dword [ebp + 0x10]
lea eax, [ebp - 0x50]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x636cef
push 0x638174
push dword [ebp - 0x68]
push dword [ebp + 0x10]
lea eax, [ebp - 0x4c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
push 0x638190
push dword [ebp - 0x68]
push dword [ebp + 0x10]
lea eax, [ebp - 0x50]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
push 1
lea eax, [ebp - 0x23c]
push eax
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x54]
mov edx, 0x6381ac
mov eax, dword [ebp - 0x4c]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x23c]
lea eax, [ebp - 0x4c]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x240]
push eax
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x54]
mov edx, 0x6381ac
mov eax, dword [ebp - 0x50]
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x240]
lea eax, [ebp - 0x50]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x94]
mov dword [ebp - 0x6c], eax
mov eax, dword [ebp - 4]
cmp dword [eax + 0xa8], 0
je 0x636d7b
mov eax, dword [ebp + 0x10]
push eax
lea eax, [ebp - 0x4c]
push eax
lea eax, [ebp - 0x50]
push eax
lea ecx, [ebp - 0x6c]
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]
mov edx, dword [sym.imp.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_]
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x63763e
mov eax, dword [ebp + 8]
mov edx, dword [sym.imp.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_]
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x63763e
mov eax, dword [ebp + 0xc]
add eax, 0x340
mov edx, dword [ebp - 0x4c]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp + 8]
add eax, 0x340
mov edx, dword [ebp - 0x50]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp + 0xc]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 0x6c]
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 - 0x6c]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
xor eax, eax
push ebp
push 0x636e88
push dword fs:[eax]
mov dword fs:[eax], esp
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 - 0x4c]
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 - 0x50]
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
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x636f31
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
xor eax, eax
mov dword [ebp - 0x5c], eax
mov al, byte [0x637cc0]
push eax
lea eax, [ebp - 0x260]
mov edx, 0x637ccc
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x260]
mov edx, 0x637ce8
mov eax, dword [ebp - 0x40]
mov ebx, dword [eax]
call dword [ebx + 0x244]
test al, al
je 0x63702e
mov eax, dword [ebp - 0x40]
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 0x636fe8
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 - 0x264]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x264]
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov dword [ebp - 0x5c], 1
jmp 0x637052
mov eax, dword [ebp - 0x40]
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 - 0x268]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x268]
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
jmp 0x637052
mov ecx, 0x637cf8
mov edx, 0x637c18
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x40]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x40]
mov edx, dword [eax]
call dword [edx + 0x14c]
mov esi, eax
dec esi
test esi, esi
jl 0x6371a1
inc esi
mov ebx, dword [ebp + 0xc]
mov eax, dword [ebx + 0x2ec]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJDBGridColumns_Add_qqrv
mov edi, eax
mov eax, dword [ebp - 0x40]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
add eax, dword [ebp - 0x5c]
push eax
mov eax, ebx
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
pop edx
cmp edx, eax
jle 0x6370e4
mov eax, ebx
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 - 0x26c]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x26c]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
jmp 0x637129
mov eax, dword [ebp - 0x40]
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
add eax, dword [ebp - 0x5c]
push eax
mov eax, ebx
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 - 0x270]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x270]
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, 0x6381d4
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 - 0x274]
mov eax, dword [edi + 0x10]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x274]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x40]
mov eax, dword [eax + 0x30]
mov edx, 4
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x278]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x278]
mov eax, dword [edi + 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0x40]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec esi
jne 0x637079
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 0x6372bf
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 - 0x280]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x280]
lea edx, [ebp - 0x27c]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x27c]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jge 0x6372b7
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 - 0x288]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x288]
lea edx, [ebp - 0x284]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x284]
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, 0x6381d4
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 - 0x290]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x290]
lea edx, [ebp - 0x28c]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x28c]
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 0x6371bf
xor eax, eax
mov dword [ebp - 0x60], eax
mov eax, dword [ebp - 0x44]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov al, byte [0x637cc0]
push eax
lea eax, [ebp - 0x2a0]
mov edx, 0x637ccc
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x2a0]
mov edx, 0x637ce8
mov eax, dword [ebp - 0x44]
mov ebx, dword [eax]
call dword [ebx + 0x244]
test al, al
je 0x6373a8
mov eax, dword [ebp - 0x44]
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 0x637362
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 - 0x2a4]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x2a4]
mov eax, dword [ebp + 0x14]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov dword [ebp - 0x60], 1
jmp 0x6373cc
mov eax, dword [ebp - 0x44]
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 - 0x2a8]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x2a8]
mov eax, dword [ebp + 0x14]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
jmp 0x6373cc
mov ecx, 0x637d2c
mov edx, 0x637c18
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_mymessagebox_qqr17System_AnsiStringt1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x63783f
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x44]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x44]
mov edx, dword [eax]
call dword [edx + 0x14c]
mov esi, eax
dec esi
test esi, esi
jl 0x63751b
inc esi
mov ebx, dword [ebp + 8]
mov eax, dword [ebx + 0x2ec]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJDBGridColumns_Add_qqrv
mov edi, eax
mov eax, dword [ebp - 0x44]
mov eax, dword [eax + 0x30]
mov edx, 2
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
add eax, dword [ebp - 0x60]
push eax
mov eax, ebx
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
pop edx
cmp edx, eax
jle 0x63745e
mov eax, ebx
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 - 0x2ac]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x2ac]
mov eax, edi
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJColumn_SetFieldName_qqrx17System_AnsiString
jmp 0x6374a3
mov eax, dword [ebp - 0x44]
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
add eax, dword [ebp - 0x60]
push eax
mov eax, ebx
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 - 0x2b0]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov edx, dword [ebp - 0x2b0]
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, 0x6381d4
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 - 0x2b4]
mov eax, dword [edi + 0x10]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x2b4]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x44]
mov eax, dword [eax + 0x30]
mov edx, 4
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x2b8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x2b8]
mov eax, dword [edi + 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0x44]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec esi
jne 0x6373f3
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 0x637768
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 - 0x2c0]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x2c0]
lea edx, [ebp - 0x2bc]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x2bc]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x54]
test eax, eax
jge 0x637631
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 - 0x2c8]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x2c8]
lea edx, [ebp - 0x2c4]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x2c4]
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, 0x6381d4
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 - 0x2d0]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x2d0]
lea edx, [ebp - 0x2cc]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x2cc]
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 0x637539
jmp 0x637768
mov edx, dword [ebp - 0x6c]
mov eax, dword [ebp + 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov edx, dword [ebp - 0x6c]
mov eax, dword [ebp + 8]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
xor eax, eax
push ebp
push 0x6376bf
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp + 0xc]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp + 0xc]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x4c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp + 8]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp + 8]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x50]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp + 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp + 8]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x637768
mov eax, dword [ebp - 4]
cmp dword [eax + 0x90], 0
je 0x637784
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x90]
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
jmp 0x6377da
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x63783f
mov eax, dword [ebp - 0x40]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x40]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x44]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x44]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x14]
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 - 0x2c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x30]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x34]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x637b19
lea eax, [ebp - 0x2e4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x2e0]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x2dc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x2d8]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x2d4]
mov edx, 0xd
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x2a0]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x290]
mov edx, 0xc
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x260]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x250]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x24c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x248]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x244]
mov edx, 6
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x22c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x228]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x224]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x21c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x218]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x214]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x20c]
mov edx, 2
call sub.rtl70.bpl__System__WStrArrayClr_qqrpvi
lea eax, [ebp - 0x204]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1fc]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x1f8]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1f4]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1ec]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x1e8]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x1e4]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x1e0]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1dc]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1d4]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x1d0]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1cc]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c4]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x1c0]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1b8]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x1b4]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1b0]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1a8]
mov edx, 2
call sub.rtl70.bpl__System__WStrArrayClr_qqrpvi
lea eax, [ebp - 0x1a0]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x198]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x194]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x190]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x188]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x184]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x180]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x17c]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x178]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x174]
mov edx, 0xe
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x13c]
mov edx, 0xc
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x10c]
mov edx, dword [sym.imp.rtl70.bpl___xp_14System_Variant]
mov ecx, 3
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0xdc]
mov edx, 0x16
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x68]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x50]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x20]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp + 0x10]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret