Function at 0x65b8f8
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x97
push 0
push 0
dec ecx
jne 0x65b900
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x65efc2
push dword fs:[eax]
mov dword fs:[eax], esp
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.PCommonUtil.bpl__Base64_TBase64_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x1c], eax
mov byte [ebp - 5], 1
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 - 0xc], 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 - 0x10], 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 - 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 - 0x28], eax
xor edx, edx
push ebp
push 0x65ef00
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x65ee07
push dword fs:[edx]
mov dword fs:[edx], esp
push 0x65efe0
push 0x65eff8
push 0x65f014
push 0x65f098
push 0
push 0
lea eax, [ebp - 0x3c]
push eax
xor ecx, ecx
mov edx, 0x65f0a4
mov eax, 0x65f0b0
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 0x3c]
lea edx, [ebp - 0x38]
call sub.PCommonUtil.bpl__Base64_Dec_qqr17System_AnsiString
mov edx, dword [ebp - 0x38]
lea ecx, [ebp - 0x34]
mov eax, dword [ebp - 0x1c]
call sub.PCommonUtil.bpl__Base64_TBase64_Base64DecodeStr_qqrx17System_AnsiString
mov edx, dword [ebp - 0x34]
lea eax, [ebp - 0x30]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
call sub.adortl70.bpl__Adodb_TADOConnection_SetConnectionString_qqrx17System_WideString
lea edx, [ebp - 0x40]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
call sub.adortl70.bpl__Adodb_TADOConnection_GetConnectionString_qqrv
mov eax, dword [ebp - 0x40]
xor edx, edx
call sub.rtl70.bpl__System__WStrCmp_qqrv
jne 0x65baee
lea eax, [ebp - 0x4c]
push eax
mov edx, 0x65f014
mov eax, dword [ebp - 0x1c]
pop ecx
call sub.PCommonUtil.bpl__Base64_TBase64_Base64DecodeStr_qqrx17System_AnsiString
mov edx, dword [ebp - 0x4c]
lea eax, [ebp - 0x48]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x48]
lea ecx, [ebp - 0x44]
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
mov eax, dword [eax + 0x30]
call sub.adortl70.bpl__Adodb_PromptDataSource_qqrui17System_WideString
mov edx, dword [ebp - 0x44]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
call sub.adortl70.bpl__Adodb_TADOConnection_SetConnectionString_qqrx17System_WideString
lea edx, [ebp - 0x50]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
call sub.adortl70.bpl__Adodb_TADOConnection_GetConnectionString_qqrv
mov eax, dword [ebp - 0x50]
xor edx, edx
call sub.rtl70.bpl__System__WStrCmp_qqrv
je 0x65baee
push 0x65efe0
push 0x65eff8
lea edx, [ebp - 0x64]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
call sub.adortl70.bpl__Adodb_TADOConnection_GetConnectionString_qqrv
mov edx, dword [ebp - 0x64]
lea eax, [ebp - 0x60]
call sub.rtl70.bpl__System__LStrFromWStr_qqrr17System_AnsiStringx17System_WideString
mov edx, dword [ebp - 0x60]
lea ecx, [ebp - 0x5c]
mov eax, dword [ebp - 0x1c]
call sub.PCommonUtil.bpl__Base64_TBase64_Base64EncodeStr_qqrx17System_AnsiString
mov eax, dword [ebp - 0x5c]
lea edx, [ebp - 0x58]
call sub.PCommonUtil.bpl__Base64_Enc_qqr17System_AnsiString
mov eax, dword [ebp - 0x58]
push eax
push 0x65f0c4
push 0
push 0
lea eax, [ebp - 0x54]
push eax
xor ecx, ecx
mov edx, 0x65f0a4
mov eax, 0x65f0b0
call sym.P_Interface.bpl__Publicutil_ReadXMLConfig_qqr17System_AnsiStringt1t1t1t1t1t1ot1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
mov byte [eax + 0x3c], 0
mov dl, 1
call sub.adortl70.bpl__Adodb_TADOConnection_SetKeepConnection_qqrxo
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x8c]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x8c]
call sym.P_Interface.bpl__Publicutil_CheckDataBaseType_qqrp20Adodb_TADOConnection
mov edx, dword [ebp - 4]
mov byte [edx + 0x3c], al
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x8c]
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x8c]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [sym.imp.rtl70.bpl__System_DebugHook]
cmp byte [eax], 0
jne 0x65edf2
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
xor eax, eax
push ebp
push 0x65bbb7
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f0d0
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65bbc1
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
xor eax, eax
push ebp
push 0x65bc08
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f124
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65bc12
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
xor eax, eax
push ebp
push 0x65bc59
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f178
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65bc63
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
xor eax, eax
push ebp
push 0x65bcaa
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f1d0
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65bcb4
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f228
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x6c]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
mov eax, dword [ebp - 0x6c]
lea edx, [ebp - 0x68]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov eax, dword [ebp - 0x68]
mov edx, 0x65f250
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x65bde7
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f25c
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
xor eax, eax
push ebp
push 0x65bd8c
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f0d0
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65bd96
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
xor eax, eax
push ebp
push 0x65bddd
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x65f124
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65bde7
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x44]
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, 0x65f278
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x70]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x65befd
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, 0x65f278
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x74]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x68]
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x65bed9
inc eax
mov dword [ebp - 0x2c], eax
mov dword [ebp - 0x18], 0
lea ecx, [ebp - 0x78]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x20]
mov ebx, dword [eax]
call dword [ebx + 0xc]
cmp dword [ebp - 0x78], 0
je 0x65bed1
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0xc]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
lea ecx, [ebp - 0x7c]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x20]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x7c]
push eax
mov eax, dword [ebp - 0xc]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x65bec7
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0xc]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65bed1
inc dword [ebp - 0x18]
dec dword [ebp - 0x2c]
jne 0x65be5e
lea edx, [ebp - 0x80]
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 - 0x80]
mov edx, 0x65f278
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x80]
call sub.rtl70.bpl__Sysutils_DeleteFile_qqrx17System_AnsiString
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
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, 0x65f28c
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 - 0x20]
mov edx, dword [eax]
call dword [edx + 0x44]
mov edx, 0x65f2a8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f2e8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f348
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f3a8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f408
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f47c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f4c4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f47c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f538
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f5a4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f5e4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f654
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f698
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f714
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f790
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f850
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f888
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f850
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f94c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f980
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65f9e8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fa50
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fab8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fb28
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fb98
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fc00
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fc84
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fcc4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fc84
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fd4c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fdb8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fe24
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fe94
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65feb4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65fedc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65ff0c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65ffac
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x65ffe8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66002c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66006c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6600cc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660108
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660144
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660168
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660198
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6601bc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6601ec
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660210
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660240
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660274
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66031c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660350
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6603f8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660428
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660450
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660480
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6604b8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6604f4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660544
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66057c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6605b4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660630
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660664
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66069c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660714
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660738
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660764
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6607b0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6607e4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660818
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66084c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660884
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6608a4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6608cc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6608fc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66099c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6609dc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660a10
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660a54
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660a90
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660ad0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660b04
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660b48
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660b88
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660bcc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660bfc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660c3c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660c80
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660cc0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660d00
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660d48
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660d8c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660ddc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660e2c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660ea0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660f18
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x660f54
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x660f7c
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c529
mov edx, 0x660f8c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x660fc0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x660ff4
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
inc eax
lea edx, [ebp - 0x88]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x88]
push 0x661060
lea eax, [ebp - 0x84]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x84]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66106c
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c596
mov edx, 0x66107c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6610b0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6610e4
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
add eax, 2
lea edx, [ebp - 0x90]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x90]
push 0x661060
lea eax, [ebp - 0x8c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x8c]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x65c596
mov edx, 0x66106c
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c596
mov edx, 0x66107c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6610b0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6610e4
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
inc eax
lea edx, [ebp - 0x98]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x98]
push 0x661060
lea eax, [ebp - 0x94]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x94]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661150
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c665
mov edx, 0x661160
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661190
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6611c0
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
inc eax
lea edx, [ebp - 0xa0]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xa0]
push 0x661060
lea eax, [ebp - 0x9c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x9c]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661228
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661258
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x661288
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
add eax, 2
lea edx, [ebp - 0xa8]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xa8]
push 0x661060
lea eax, [ebp - 0xa4]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xa4]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6612f0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661324
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661358
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661388
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6613b8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6613e8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661418
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661448
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x661478
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
mov ebx, eax
mov edx, 0x660f7c
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c753
inc ebx
push 0x6614a0
lea edx, [ebp - 0xb0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xb0]
push 0x661060
lea eax, [ebp - 0xac]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xac]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661508
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c7a0
inc ebx
push 0x661518
lea edx, [ebp - 0xb8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xb8]
push 0x661060
lea eax, [ebp - 0xb4]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xb4]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661584
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c7ed
inc ebx
push 0x661594
lea edx, [ebp - 0xc0]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xc0]
push 0x661060
lea eax, [ebp - 0xbc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xbc]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6615fc
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65c83a
inc ebx
push 0x66160c
lea edx, [ebp - 0xc8]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xc8]
push 0x661060
lea eax, [ebp - 0xc4]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xc4]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661674
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661694
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6616bc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6616ec
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66178c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6617b8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6617ec
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66182c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661870
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661898
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6618c8
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66191c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x66196c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6619a4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x6619dc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661a10
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661a44
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661ab4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661af4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661b34
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661b7c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661bbc
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661c24
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661c7c
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661cc0
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x661d10
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
push 0x661d4c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xd0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0xd0]
push 0x661d70
lea eax, [ebp - 0xcc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xcc]
push eax
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
call sub.dbrtl70.bpl__Db_TField_GetDisplayWidth_qqrv
mov edx, dword [ebp - 4]
mov dword [edx + 0x34], eax
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x14c]
dec eax
test eax, eax
jl 0x65ebb1
inc eax
mov dword [ebp - 0x2c], eax
lea edx, [ebp - 0xd8]
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 - 0xd8]
push 0x661d8c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xdc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0xdc]
push 0x661d9c
lea eax, [ebp - 0xd4]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xd4]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
jne 0x65cb22
push 0xffffffffffffffff
lea edx, [ebp - 0xe4]
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 - 0xe4]
push 0x661d8c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xe8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0xe8]
push 0x661d9c
lea eax, [ebp - 0xe0]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xe0]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
lea edx, [ebp - 0xec]
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 - 0xec]
mov edx, 0x661dac
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0xec]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CopyFileA
push 0x661dcc
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xf4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0xf4]
push 0x661de4
lea eax, [ebp - 0xf0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xf0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x661dcc
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xfc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0xfc]
push 0x661e08
lea eax, [ebp - 0xf8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xf8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x661dcc
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x104]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x104]
push 0x661e30
lea eax, [ebp - 0x100]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x100]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x661e54
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x110]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x110]
lea edx, [ebp - 0x10c]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
push dword [ebp - 0x10c]
push 0x661eb8
lea eax, [ebp - 0x108]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x108]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x661ee0
mov edx, 0x661f0c
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x118]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x118]
push 0x661f1c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x11c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x11c]
push 0x661f38
lea eax, [ebp - 0x114]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x114]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x661f94
mov edx, 0x661f0c
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x124]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x124]
push 0x661f1c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x128]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x128]
push 0x661fc0
lea eax, [ebp - 0x120]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x120]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x66200c
mov edx, 0x661f0c
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x130]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x130]
push 0x661f1c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x134]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x134]
push 0x662038
lea eax, [ebp - 0x12c]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x12c]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6620a8
mov edx, 0x661f0c
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x13c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x13c]
push 0x661f1c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x140]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x140]
push 0x6620d4
lea eax, [ebp - 0x138]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x138]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662130
mov edx, 0x661f0c
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x148]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x148]
push 0x661f1c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x14c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x14c]
push 0x66215c
lea eax, [ebp - 0x144]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x144]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6621b8
mov edx, 0x661f0c
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x154]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x154]
push 0x661f1c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x158]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x158]
push 0x6621e4
lea eax, [ebp - 0x150]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x150]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662230
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x160]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x160]
push 0x662270
lea eax, [ebp - 0x15c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x15c]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662280
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
dec dword [ebp - 0x1676b]
dec dword [ebx + 0x6051ff08]
push dword [ebp - 0x168]
push 0x6622cc
lea eax, [ebp - 0x164]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x164]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662280
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x170]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x170]
push 0x6622ec
lea eax, [ebp - 0x16c]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x16c]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662300
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x178]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x178]
push 0x662324
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x17c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x17c]
push 0x662340
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x180]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x180]
push 0x66235c
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x184]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x184]
push 0x662374
lea eax, [ebp - 0x174]
mov edx, 9
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x174]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
push 0x661d4c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x18c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x18c]
push 0x661d70
lea eax, [ebp - 0x188]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x188]
push eax
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
mov ebx, eax
inc ebx
mov edx, 0x662380
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d1da
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x194]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x194]
push 0x6623a8
lea eax, [ebp - 0x190]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x190]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x19c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x19c]
push 0x6623d0
lea eax, [ebp - 0x198]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x198]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1a4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1a4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1a8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1a8]
push 0x662434
lea edx, [ebp - 0x1ac]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1ac]
push 0x661060
lea eax, [ebp - 0x1a0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1a0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662478
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d2fd
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1b4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1b4]
push 0x662488
lea eax, [ebp - 0x1b0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1b0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1bc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1bc]
push 0x6624b0
lea eax, [ebp - 0x1b8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1b8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1c4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1c4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1c8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1c8]
push 0x6624d8
lea edx, [ebp - 0x1cc]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1cc]
push 0x661060
lea eax, [ebp - 0x1c0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1c0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x66252c
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d420
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1d4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1d4]
push 0x66253c
lea eax, [ebp - 0x1d0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1d0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1dc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1dc]
push 0x662564
lea eax, [ebp - 0x1d8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1d8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1e4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1e4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1e8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1e8]
push 0x66258c
lea edx, [ebp - 0x1ec]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1ec]
push 0x661060
lea eax, [ebp - 0x1e0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1e0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x6625d4
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d4fd
push 0x661dcc
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1f4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1f4]
push 0x6625e4
lea eax, [ebp - 0x1f0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1f0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1fc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1fc]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x200]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x200]
push 0x662610
lea edx, [ebp - 0x204]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x204]
push 0x661060
lea eax, [ebp - 0x1f8]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1f8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662660
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d5da
push 0x661dcc
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x20c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x20c]
push 0x662670
lea eax, [ebp - 0x208]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x208]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x214]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x214]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x218]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x218]
push 0x662698
lea edx, [ebp - 0x21c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x21c]
push 0x661060
lea eax, [ebp - 0x210]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x210]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x6626dc
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d6fd
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x224]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x224]
push 0x6626ec
lea eax, [ebp - 0x220]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x220]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x22c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x22c]
push 0x662714
lea eax, [ebp - 0x228]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x228]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x234]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x234]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x238]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x238]
push 0x66273c
lea edx, [ebp - 0x23c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x23c]
push 0x661060
lea eax, [ebp - 0x230]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x230]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662780
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d820
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x244]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x244]
push 0x662790
lea eax, [ebp - 0x240]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x240]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x24c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x24c]
push 0x6627b0
lea eax, [ebp - 0x248]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x248]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x254]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x254]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x258]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x258]
push 0x6627d4
lea edx, [ebp - 0x25c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x25c]
push 0x661060
lea eax, [ebp - 0x250]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x250]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662814
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65d943
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x264]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x264]
push 0x662820
lea eax, [ebp - 0x260]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x260]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x26c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x26c]
push 0x662844
lea eax, [ebp - 0x268]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x268]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x274]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x274]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x278]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x278]
push 0x66286c
lea edx, [ebp - 0x27c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x27c]
push 0x661060
lea eax, [ebp - 0x270]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x270]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x6628b0
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65da66
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x284]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x284]
push 0x6628bc
lea eax, [ebp - 0x280]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x280]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x28c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x28c]
push 0x6628e0
lea eax, [ebp - 0x288]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x288]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x294]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x294]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x298]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x298]
push 0x662904
lea edx, [ebp - 0x29c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x29c]
push 0x661060
lea eax, [ebp - 0x290]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x290]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662944
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65db89
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2a4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2a4]
push 0x662954
lea eax, [ebp - 0x2a0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2a0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2ac]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2ac]
push 0x66297c
lea eax, [ebp - 0x2a8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2a8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2b4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2b4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2b8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2b8]
push 0x6629a4
lea edx, [ebp - 0x2bc]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2bc]
push 0x661060
lea eax, [ebp - 0x2b0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2b0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x6629e8
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65dcac
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2c4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2c4]
push 0x6629f8
lea eax, [ebp - 0x2c0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2c0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2cc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2cc]
push 0x662a20
lea eax, [ebp - 0x2c8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2c8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2d4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2d4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2d8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2d8]
push 0x662a48
lea edx, [ebp - 0x2dc]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2dc]
push 0x661060
lea eax, [ebp - 0x2d0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2d0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662a8c
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65ddcf
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2e4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2e4]
push 0x662a9c
lea eax, [ebp - 0x2e0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2e0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2ec]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2ec]
push 0x662ac0
lea eax, [ebp - 0x2e8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2e8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2f4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2f4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2f8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x2f8]
push 0x662ae4
lea edx, [ebp - 0x2fc]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2fc]
push 0x661060
lea eax, [ebp - 0x2f0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x2f0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x66106c
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65def2
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x304]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x304]
push 0x662b28
lea eax, [ebp - 0x300]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x300]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x30c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x30c]
push 0x662b50
lea eax, [ebp - 0x308]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x308]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x314]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x314]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x318]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x318]
push 0x662b78
lea edx, [ebp - 0x31c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x31c]
push 0x661060
lea eax, [ebp - 0x310]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x310]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662bc4
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e015
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x324]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x324]
push 0x662bdc
lea eax, [ebp - 0x320]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x320]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x32c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x32c]
push 0x662c0c
lea eax, [ebp - 0x328]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x328]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x334]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x334]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x338]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x338]
push 0x662c3c
lea edx, [ebp - 0x33c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x33c]
push 0x661060
lea eax, [ebp - 0x330]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x330]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662c8c
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e138
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x344]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x344]
push 0x662c9c
lea eax, [ebp - 0x340]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x340]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x34c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x34c]
push 0x662cc4
lea eax, [ebp - 0x348]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x348]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x354]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x354]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x358]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x358]
push 0x662cec
lea edx, [ebp - 0x35c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x35c]
push 0x661060
lea eax, [ebp - 0x350]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x350]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662d34
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e25b
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x364]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x364]
push 0x662d44
lea eax, [ebp - 0x360]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x360]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x36c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x36c]
push 0x662d6c
lea eax, [ebp - 0x368]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x368]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x374]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x374]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x378]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x378]
push 0x662d94
lea edx, [ebp - 0x37c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x37c]
push 0x661060
lea eax, [ebp - 0x370]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x370]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662de0
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e37e
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x384]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x384]
push 0x662df0
lea eax, [ebp - 0x380]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x380]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x38c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x38c]
push 0x662e18
lea eax, [ebp - 0x388]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x388]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x394]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x394]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x398]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x398]
push 0x662e40
lea edx, [ebp - 0x39c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x39c]
push 0x661060
lea eax, [ebp - 0x390]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x390]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662e8c
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e4a1
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3a4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3a4]
push 0x662e9c
lea eax, [ebp - 0x3a0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3a0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3ac]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3ac]
push 0x662ec4
lea eax, [ebp - 0x3a8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3a8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3b4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3b4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3b8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3b8]
push 0x662eec
lea edx, [ebp - 0x3bc]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x3bc]
push 0x661060
lea eax, [ebp - 0x3b0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3b0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x661150
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e5c4
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3c4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3c4]
push 0x662f30
lea eax, [ebp - 0x3c0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3c0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3cc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3cc]
push 0x662f58
lea eax, [ebp - 0x3c8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3c8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3d4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3d4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3d8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3d8]
push 0x662f80
lea edx, [ebp - 0x3dc]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x3dc]
push 0x661060
lea eax, [ebp - 0x3d0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3d0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x662fc4
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e6e6
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3e4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3e4]
push 0x662fd0
lea eax, [ebp - 0x3e0]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3e0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3ec]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3ec]
push 0x662ff4
lea eax, [ebp - 0x3e8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3e8]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3f4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3f4]
push 0x662420
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3f8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x3f8]
push 0x66301c
lea edx, [ebp - 0x3fc]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x3fc]
push 0x661060
lea eax, [ebp - 0x3f0]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x3f0]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
push 0x661d4c
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x404]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x404]
push 0x663060
lea eax, [ebp - 0x400]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x400]
push eax
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
mov ebx, eax
inc ebx
mov edx, 0x66307c
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e87e
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x40c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x40c]
push 0x66308c
lea eax, [ebp - 0x408]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x408]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x414]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x414]
push 0x6630b4
lea eax, [ebp - 0x410]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x410]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x41c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x41c]
push 0x6630e0
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x420]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x420]
push 0x6630f4
lea edx, [ebp - 0x424]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x424]
push 0x661060
lea eax, [ebp - 0x418]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x418]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x661508
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65e9a1
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x42c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x42c]
push 0x663140
lea eax, [ebp - 0x428]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x428]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x434]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x434]
push 0x663168
lea eax, [ebp - 0x430]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x430]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x43c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x43c]
push 0x6630e0
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x440]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x440]
push 0x663190
lea edx, [ebp - 0x444]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x444]
push 0x661060
lea eax, [ebp - 0x438]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x438]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x661584
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65eac4
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x44c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x44c]
push 0x6631dc
lea eax, [ebp - 0x448]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x448]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x662390
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x454]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x454]
push 0x663204
lea eax, [ebp - 0x450]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x450]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x45c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x45c]
push 0x6630e0
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x460]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x460]
push 0x66322c
lea edx, [ebp - 0x464]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x464]
push 0x661060
lea eax, [ebp - 0x458]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x458]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edx, 0x663274
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_FindField_qqrx17System_AnsiString
test eax, eax
jne 0x65eba0
push 0x661dcc
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x46c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x46c]
push 0x663280
lea eax, [ebp - 0x468]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x468]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0x6623f8
mov edx, 0x661d64
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x474]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x474]
push 0x6630e0
mov edx, 0x662330
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x478]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x478]
push 0x6632a8
lea edx, [ebp - 0x47c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x47c]
push 0x661060
lea eax, [ebp - 0x470]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x470]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec dword [ebp - 0x2c]
jne 0x65ca2e
lea edx, [ebp - 0x480]
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 - 0x480]
mov edx, 0x6632e8
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x480]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [sym.imp.rtl70.bpl__System_DebugHook]
cmp byte [eax], 0
jne 0x65edf2
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x65edf2
inc eax
mov dword [ebp - 0x2c], eax
mov dword [ebp - 0x18], 0
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
lea ecx, [ebp - 0x484]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x20]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x484]
push eax
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
push 0x6632fc
push 1
lea eax, [ebp - 0x48c]
push eax
lea ecx, [ebp - 0x490]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x20]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x490]
xor ecx, ecx
mov edx, 0x66332c
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
push dword [ebp - 0x48c]
push 0x66332c
lea eax, [ebp - 0x488]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x488]
push eax
mov eax, dword [ebp - 0x14]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
xor eax, eax
push ebp
push 0x65eddc
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14c]
test eax, eax
jne 0x65edd2
xor eax, eax
push ebp
push 0x65edc8
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x10]
call sub.adortl70.bpl__Adodb_TADOQuery_ExecSQL_qqrv
xor eax, eax
push ebp
push 0x65ed80
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
push 1
lea eax, [ebp - 0x4a4]
push eax
lea ecx, [ebp - 0x4a8]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x20]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x4a8]
xor ecx, ecx
mov edx, 0x66332c
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x4a4]
lea eax, [ebp - 0x4a0]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x4a0]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb4]
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x24c]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65edbe
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65edd2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65ede6
inc dword [ebp - 0x18]
dec dword [ebp - 0x2c]
jne 0x65ec0b
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_AddLISTFPLB_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65eea2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x65ef07
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 - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x10]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x10]
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 - 0x1c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x14]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret