Function at 0x61603c
Capabilities:
Access peb ldr_data
Get process heap flags
Get process heap force flags

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x8020
push 0
push 0
dec ecx
jne 0x616044
push ecx
push ebx
push esi
push edi
mov dword [ebp - 8], edx
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x6172b0
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x40020]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x40020]
mov edx, 0x6172cc
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x40020]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x616669
cmp dword [ebp - 8], 0
jne 0x6160ac
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 8], eax
mov eax, dword [ebp - 8]
mov ebx, dword [sym.imp.vcl70.bpl__Stdctrls_TMemo_]
mov edx, ebx
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x6160f5
lea edx, [ebp - 0x40024]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x40024]
mov edx, 0x6172cc
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x40024]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x220]
mov ecx, dword [eax]
call dword [ecx + 0x68]
mov eax, dword [ebp - 8]
mov esi, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
mov edx, esi
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x616138
lea edx, [ebp - 0x40028]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x40028]
mov edx, 0x6172cc
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x40028]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x68]
mov dl, 1
mov eax, dword [sym.imp.PascalScript_Core_D7.bpl__Upspreprocessor_TPSPreProcessor_]
call sub.PascalScript_Core_D7.bpl__Upspreprocessor_TPSPreProcessor__bctr_qqrv
mov dword [ebp - 0x18], eax
mov dl, 1
mov eax, dword [sym.imp.PascalScript_Core_D7.bpl__Upscompiler_TPSPascalCompiler_]
call sub.PascalScript_Core_D7.bpl__Upscompiler_TPSPascalCompiler__bctr_qqrv
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x616662
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x18]
mov edx, dword [ebp - 0xc]
mov dword [eax + 0x1c], edx
mov dword [eax + 0x18], sym.P_Interface.bpl__Unit_developtools_tdevelop_OnNeedFile_qqrp14System_TObjectx17System_AnsiStringr17System_AnsiStringt3
lea edx, [ebp - 0x4002c]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
mov edx, dword [ebp - 0x4002c]
mov eax, dword [ebp - 0x18]
add eax, 0x2c
mov ecx, 0x6172cc
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 8]
mov edx, ebx
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x6161c8
lea edx, [ebp - 0x40030]
mov eax, dword [ebp - 8]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
mov edx, dword [ebp - 0x40030]
mov eax, dword [ebp - 0x18]
add eax, 0x30
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp - 8]
mov edx, esi
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x6161f5
lea edx, [ebp - 0x40034]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x40034]
mov eax, dword [ebp - 0x18]
add eax, 0x30
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
lea ecx, [ebp - 0x10]
mov eax, dword [ebp - 0x18]
mov edx, dword [eax + 0x2c]
mov eax, dword [ebp - 0x18]
call sub.PascalScript_Core_D7.bpl__Upspreprocessor_TPSPreProcessor_PreProcess_qqrx17System_AnsiStringr17System_AnsiString
mov eax, dword [ebp - 8]
mov edx, ebx
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x616268
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x220]
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x220]
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea edx, [ebp - 0x40038]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x40038]
mov edx, 0x6172e4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x40038]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x220]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [ebp - 8]
mov edx, esi
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x6162b8
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x44]
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea edx, [ebp - 0x4003c]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x4003c]
mov edx, 0x6172e4
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x4003c]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [ebp - 4]
mov edx, dword [ebp - 0xc]
mov dword [eax + 0x14], edx
mov dword [eax + 0x10], sym.P_Interface.bpl__Unit_developtools_tdevelop_MyExportCheck_qqrp29Upscompiler_TPSPascalCompilerp32Upscompiler_TPSInternalProcedu
mov eax, dword [ebp - 4]
mov edx, dword [ebp - 0xc]
mov dword [eax + 0x4c], edx
mov dword [eax + 0x48], sym.P_Interface.bpl__Unit_developtools_tdevelop_MyOnUses_qqrp29Upscompiler_TPSPascalCompilerx17System_AnsiString
mov eax, sub.PascalScript_Core_D7.bpl__Upsc_dll_DllExternalProc_qqrp29Upscompiler_TPSPascalCompilerp29Upscompiler_TPSParametersDeclx17S
mov edx, dword [ebp - 4]
mov dword [edx + 0x5c], eax
mov eax, dword [ebp - 4]
mov byte [eax + 0x52], 1
mov eax, dword [ebp - 4]
mov byte [eax + 0x53], 1
mov eax, dword [ebp - 4]
mov byte [eax + 0x55], 1
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 4]
call sub.PascalScript_Core_D7.bpl__Upscompiler_TPSPascalCompiler_Compile_qqrx17System_AnsiString
test al, al
je 0x61662c
lea edx, [ebp - 0x10]
mov eax, dword [ebp - 4]
call sub.PascalScript_Core_D7.bpl__Upscompiler_TPSPascalCompiler_GetOutput_qqrr17System_AnsiString
test al, al
jne 0x616360
mov eax, dword [ebp - 8]
mov edx, ebx
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x61633b
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x220]
mov edx, 0x6172fc
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 8]
mov edx, esi
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x616356
mov edx, 0x6172fc
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x6171dc
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.PascalScript_Core_D7.bpl__Upscompiler_TPSPascalCompiler_GetDebugOutput_qqrr17System_AnsiString
mov dl, 1
mov eax, dword [sym.imp.PascalScript_Core_D7.bpl__Upsdebugger_TPSDebugExec_]
call sub.PascalScript_Core_D7.bpl__Upsdebugger_TPSDebugExec__bctr_qqrv
mov edx, dword [ebp - 0xc]
mov dword [edx + 0x1c], eax
mov dl, 1
mov eax, dword [sym.imp.PascalScript_Core_D7.bpl__Upsruntime_TPSRuntimeClassImporter_]
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSRuntimeClassImporter__bctr_qqrv
mov ebx, eax
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
call sub.PascalScript_Core_D7.bpl__Upsr_dll_RegisterDLLRuntime_qqrp18Upsruntime_TPSExec
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
mov edx, ebx
call sub.PascalScript_Core_D7.bpl__Upsruntime_RegisterClassLibraryRuntime_qqrp18Upsruntime_TPSExecp34Upsruntime_TPSRuntimeClassImpo
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
mov edx, ebx
call sym.P_Interface.bpl__Scriptclasses_r_ScriptClassesLibraryRegister_R_qqrp18Upsruntime_TPSExecp34Upsruntime_TPSRuntimeClassImporter
mov eax, ebx
call sym.P_Interface.bpl__Upsi_myadoqueryunit_RIRegister_MyAdoQueryUnit_qqrp34Upsruntime_TPSRuntimeClassImporter
mov eax, ebx
call sym.P_Interface.bpl__Upsi_fpinterface_RIRegister_TFPINTERFACE_qqrp34Upsruntime_TPSRuntimeClassImporter
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
call sym.P_Interface.bpl__Upsi_ncutil_RIRegister_NCutil_Routines_qqrp18Upsruntime_TPSExec
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
call sym.P_Interface.bpl__Upsi_publicutil_RIRegister_PublicUtil_Routines_qqrp18Upsruntime_TPSExec
mov eax, ebx
call sym.P_Interface.bpl__Upsi_ncutil_RIRegister_tMyWebBrowser_qqrp34Upsruntime_TPSRuntimeClassImporter
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
call sym.P_Interface.bpl__Upsi_unit_hx_RIRegister_Unit_hx_Routines_qqrp18Upsruntime_TPSExec
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
call sym.P_Interface.bpl__Scriptfunc_r_ScriptFuncLibraryRegister_R_qqrp18Upsruntime_TPSExec
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0xc]
test al, al
jne 0x61644f
lea ecx, [ebp - 0x40044]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax + 0x1c]
mov edx, dword [ebx + 0x80]
mov al, byte [ebx + 0x7c]
call sub.PascalScript_Core_D7.bpl__Upsruntime_TIFErrorToString_qqr19Upsruntime_TPSErrorx17System_AnsiString
mov ecx, dword [ebp - 0x40044]
lea eax, [ebp - 0x40040]
mov edx, 0x617324
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x40040]
xor ecx, ecx
mov eax, 0x61734c
call sub.PCommonUtil.bpl__Ncutil_MyMessageBox_qqr17System_AnsiStringt1o
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x6171dc
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
mov edx, dword [ebp - 0x14]
call sub.PascalScript_Core_D7.bpl__Upsdebugger_TPSCustomDebugExec_LoadDebugData_qqrx17System_AnsiString
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax + 0x1c]
mov eax, ebx
mov edx, 0x617360
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVar_qqrx17System_AnsiString
mov edx, eax
mov eax, ebx
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVarNo_qqrui
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x24]
call sub.PascalScript_Core_D7.bpl__Upsruntime_SetVariantToClass_qqrp21Upsruntime_TPSVariantp14System_TObject
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax + 0x1c]
mov eax, ebx
mov edx, 0x617378
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVar_qqrx17System_AnsiString
mov edx, eax
mov eax, ebx
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVarNo_qqrui
mov edx, dword [sym.imp.vcl70.bpl__Forms_Application]
mov edx, dword [edx]
call sub.PascalScript_Core_D7.bpl__Upsruntime_SetVariantToClass_qqrp21Upsruntime_TPSVariantp14System_TObject
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax + 0x1c]
mov eax, ebx
mov edx, 0x61738c
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVar_qqrx17System_AnsiString
mov edx, eax
mov eax, ebx
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVarNo_qqrui
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x28]
call sub.PascalScript_Core_D7.bpl__Upsruntime_SetVariantToClass_qqrp21Upsruntime_TPSVariantp14System_TObject
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x50]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x61653d
inc esi
xor ebx, ebx
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x50]
mov edx, ebx
mov ecx, dword [eax]
call dword [ecx + 0x18]
push eax
lea edx, [ebp - 0x4004c]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x4004c]
lea eax, [ebp - 0x40048]
mov edx, 0x6173a0
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x40048]
mov eax, dword [ebp - 0xc]
mov edi, dword [eax + 0x1c]
mov eax, edi
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVar_qqrx17System_AnsiString
mov edx, eax
mov eax, edi
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_GetVarNo_qqrui
pop edx
call sub.PascalScript_Core_D7.bpl__Upsruntime_SetVariantToClass_qqrp21Upsruntime_TPSVariantp14System_TObject
inc ebx
dec esi
jne 0x6164e6
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
call sub.PascalScript_Core_D7.bpl__Upsruntime_TPSExec_RunScript_qqrv
mov eax, dword [ebp - 0xc]
mov esi, dword [eax + 0x1c]
mov bl, byte [esi + 0x7c]
test bl, bl
je 0x6165e6
push 0x6173bc
lea ecx, [ebp - 0x40054]
mov edx, dword [esi + 0x80]
mov eax, ebx
call sub.PascalScript_Core_D7.bpl__Upsruntime_TIFErrorToString_qqr19Upsruntime_TPSErrorx17System_AnsiString
push dword [ebp - 0x40054]
push 0x6173d8
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
mov eax, dword [eax + 0x74]
xor edx, edx
push edx
push eax
lea eax, [ebp - 0x40058]
call sub.rtl70.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x40058]
push 0x6173e8
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1c]
mov eax, dword [eax + 0x78]
xor edx, edx
push edx
push eax
lea eax, [ebp - 0x4005c]
call sub.rtl70.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x4005c]
push 0x6173f8
lea eax, [ebp - 0x40050]
mov edx, 7
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x40050]
xor ecx, ecx
mov eax, 0x61734c
call sub.PCommonUtil.bpl__Ncutil_MyMessageBox_qqr17System_AnsiStringt1o
jmp 0x616644
mov eax, dword [ebp - 8]
mov edx, dword [sym.imp.vcl70.bpl__Stdctrls_TMemo_]
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x61660b
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x220]
mov edx, 0x617438
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 8]
mov edx, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x616644
mov edx, 0x6172fc
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
jmp 0x616644
xor ecx, ecx
mov edx, 0x61744c
mov eax, 0x61734c
call sub.PCommonUtil.bpl__Ncutil_MyMessageBox_qqr17System_AnsiStringt1o
push ebp
call fcn.00615f00
pop ecx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x616669
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
mov eax, dword [ebp - 0xc]
mov byte [eax + 4], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 5], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 6], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 7], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 8], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 9], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0xa], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0xb], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0xc], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0xd], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0xe], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0xf], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x10], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x11], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x12], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x13], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x14], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x15], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x16], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x17], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x18], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x19], 0
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x1a], 0
push sym.P_Interface.bpl__Unit_kpyw_of_dj_sl_zh_qqsgi
push 0
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x615b6c
push 1
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_dj_cs_qqsx14System_Variant
push 2
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_OF_CFZK_max_qqspcx14System_Variantt1
push 3
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_OF_PTZK_tozkfield_qqspcx14System_Variantt1
push 4
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_hbzktozkfield_qqspcx14System_Variantt1
push 5
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_OF_CFZK_qqspcx14System_Variant
push 6
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_OF_PTZK_qqspcx14System_Variantt1
push 7
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_hbzktoend_qqspcx14System_Variant
push 8
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_dhcfcz_qqsx14System_Variant
push 9
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_OF_CFMXCY_qqsx14System_Variantt1t1o
push 0xa
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_CSHSJE_qqsx14System_Variantt1
push 0xb
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_CSBHSJE_qqsx14System_Variantt1
push 0xc
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_hb_fp_qqspcx14System_Variantt2t2oo
push 0xd
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_hbcp_qqspcx14System_Variantt2o
push 0xe
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_cfbtsl_qqspcx14System_Variantt2t2
push 0xf
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_hb_fs_qqsx14System_Variantt1
push 0x10
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_OF_DU_CFSF_qqspcx14System_Variantt2t2gio
push 0x11
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_hb_fs_djbt_qqspcx14System_Variantt2
push 0x12
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_SetConfile_qqspvipct3
push 0x13
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push sym.P_Interface.bpl__Unit_kpyw_of_hbzktomx_qqspcx14System_Variant
push 0x14
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x615360
push 0x15
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x615c68
push 0x16
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x615710
push 0x17
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x615954
push 0x18
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x61584c
push 0x19
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x615a5c
push 0x1a
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x6151b0
push 0x1b
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x6154d8
push 0x1c
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x614da8
push 0x1d
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x614f10
push 0x1e
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x61504c
push 0x1f
push 0x617458
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
mov eax, dword [ebp - 0xc]
add eax, 0x28
push eax
push 0x617468
mov eax, dword [ebp - 0xc]
add eax, 0x30
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x10
lea edx, [ebp - 0x40060]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x40060]
mov edx, 0x617484
call sub.rtl70.bpl__System__LStrCat_qqrv
mov ecx, dword [ebp - 0x40060]
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Inifiles_TIniFile_]
call sub.rtl70.bpl__Inifiles_TCustomIniFile__bctr_qqrx17System_AnsiString
mov dword [ebp - 0x1c], eax
xor eax, eax
push ebp
push 0x6171d5
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
lea eax, [ebp - 0x40064]
push eax
mov ecx, 0x617498
mov edx, 0x6174a4
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
cmp dword [ebp - 0x40064], 0
je 0x616c1f
lea eax, [ebp - 0x40074]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
push eax
lea eax, [ebp - 0x40078]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
push 0
lea eax, [ebp - 0x40080]
push eax
mov ecx, 0x6174b8
mov edx, 0x6174a4
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x40080]
lea eax, [ebp - 0x4007c]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x4007c]
push eax
lea edx, [ebp - 0x40088]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x40088]
push eax
push 0
lea eax, [ebp - 0x4008c]
push eax
mov ecx, 0x617498
mov edx, 0x6174a4
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x4008c]
pop eax
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x40088]
lea eax, [ebp - 0x40084]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov eax, dword [ebp - 0x40084]
push eax
lea edx, [ebp - 0x40090]
mov eax, dword [sym.P_Interface.bpl__Myadoqueryunit_Host_kp]
mov eax, dword [eax]
call sym.P_Interface.bpl__Jcldotnet_TJclClrHost_GetDefaultAppDomain_qqrv
mov eax, dword [ebp - 0x40090]
push eax
mov eax, dword [eax]
call dword [eax + 0x98]
call sub.rtl70.bpl__System__CheckAutoResult_qqrl
mov eax, dword [ebp - 0x40078]
push eax
mov eax, dword [eax]
call dword [eax + 0x38]
call sub.rtl70.bpl__System__CheckAutoResult_qqrl
lea edx, [ebp - 0x40074]
mov eax, dword [ebp - 0xc]
add eax, 0x40
call sub.rtl70.bpl__Variants__VarCopy_qqrr8TVarDatarx8TVarData
jmp 0x616ccb
push 0
lea eax, [ebp - 0x40094]
push eax
mov ecx, 0x6174b8
mov edx, 0x6174d0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
cmp dword [ebp - 0x40094], 0
je 0x616ccb
lea edx, [ebp - 0x40098]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x40098]
push eax
push 0
lea eax, [ebp - 0x4009c]
push eax
mov ecx, 0x617498
mov edx, 0x6174d0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov edx, dword [ebp - 0x4009c]
pop eax
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x40098]
call sub.rtl70.bpl__Comobj_RegisterComServer_qqrx17System_AnsiString
push 0
lea eax, [ebp - 0x400a4]
push eax
mov ecx, 0x6174b8
mov edx, 0x6174d0
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx]
mov eax, dword [ebp - 0x400a4]
lea edx, [ebp - 0x400a0]
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x400a0]
mov eax, dword [ebp - 0xc]
add eax, 0x40
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
mov eax, dword [ebp - 0xc]
add eax, 0x40
call sub.rtl70.bpl__Variants_VarIsNull_qqrrx14System_Variant
test al, al
jne 0x6171bf
mov eax, dword [ebp - 0xc]
add eax, 0x40
call sub.rtl70.bpl__Variants_VarIsEmpty_qqrrx14System_Variant
test al, al
jne 0x6171bf
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400a8]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400a8]
mov edx, 0x6174dc
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 4], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400ac]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400ac]
mov edx, 0x6174e8
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 5], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400b0]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400b0]
mov edx, 0x6174f4
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 6], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400b4]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400b4]
mov edx, 0x617508
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 7], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400b8]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400b8]
mov edx, 0x617518
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 8], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400bc]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400bc]
mov edx, 0x617524
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 9], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400c0]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400c0]
mov edx, 0x617534
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0xa], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400c4]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400c4]
mov edx, 0x617540
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0xb], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400c8]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400c8]
mov edx, 0x617548
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0xc], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400cc]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400cc]
mov edx, 0x617554
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0xd], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400d0]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400d0]
mov edx, 0x617564
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0xe], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400d4]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400d4]
mov edx, 0x617570
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0xf], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400d8]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400d8]
mov edx, 0x617578
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x10], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400dc]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400dc]
mov edx, 0x617588
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x11], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400e0]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400e0]
mov edx, 0x617594
mov ecx, 1
call fcn.00610d58
mov ebx, eax
mov eax, dword [ebp - 0xc]
mov byte [eax + 0x12], bl
test bl, bl
jne 0x617027
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400e4]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400e4]
mov edx, 0x6175a8
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x12], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400e8]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400e8]
mov edx, 0x6175bc
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x13], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400ec]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400ec]
mov edx, 0x6175cc
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x14], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400f0]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400f0]
mov edx, 0x6175dc
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x15], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400f4]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400f4]
mov edx, 0x6175ec
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x16], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400f8]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400f8]
mov edx, 0x617600
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x17], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x400fc]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x400fc]
mov edx, 0x617610
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x18], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x40100]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x40100]
mov edx, 0x617624
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x19], al
lea eax, [ebp - 0x4001c]
push eax
lea eax, [ebp - 0x40104]
mov edx, dword [ebp - 0xc]
add edx, 0x40
call sub.rtl70.bpl__Variants__VarToDisp_qqrr36System__DelphiInterface_t9IDispatch_rx8TVarData
mov eax, dword [ebp - 0x40104]
mov edx, 0x617630
mov ecx, 1
call fcn.00610d58
mov edx, dword [ebp - 0xc]
mov byte [edx + 0x1a], al
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6171dc
mov eax, dword [ebp - 0x1c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6172ba
lea eax, [ebp - 0x40104]
mov edx, dword [sym.imp.rtl70.bpl___xp_9IDispatch]
mov ecx, 0x18
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x400a4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x400a0]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x4009c]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x40090]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x4008c]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x40084]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x40080]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x4007c]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x40078]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x40074]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x40064]
mov edx, 0xd
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x40030]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x4002c]
mov edx, 4
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x14]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret