Function at 0x578ea8
Capabilities:
Create directory

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x28
push 0
push 0
dec ecx
jne 0x578eb0
push ecx
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x5798e7
push dword fs:[eax]
mov dword fs:[eax], esp
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x28]
mov eax, 0x579908
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push 0
lea edx, [ebp - 0x3c]
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 - 0x3c]
mov edx, 0x579924
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x3c]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
mov byte [ebp - 5], 0
lea edx, [ebp - 0x40]
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 - 0x40]
mov edx, 0x579930
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x40]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x579785
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.xmlrtl70.bpl__Xmldoc_TXMLDocument_]
call sub.xmlrtl70.bpl__Xmldoc_TXMLDocument__bctr_qqrp18Classes_TComponent
mov edx, eax
test edx, edx
je 0x578f5b
sub edx, 0xffffff34
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x34], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.P_Interface.bpl__Unit_fphmqr_TForm_FPHMQR_]
call sub.vcl70.bpl__Forms_TCustomForm__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x38], eax
xor edx, edx
push ebp
push 0x57977e
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x5796ff
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 0x34]
mov edx, dword [eax]
call dword [edx + 0x44]
lea edx, [ebp - 0x48]
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 - 0x48]
mov edx, 0x579930
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x48]
lea eax, [ebp - 0x44]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x44]
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x94]
mov dl, 1
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
mov edx, 0x579940
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x58]
lea edx, [ebp - 0x10]
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov ebx, dword [eax + 0x90]
test ebx, ebx
je 0x579053
lea edx, [ebp - 0x4c]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0x4c]
mov edx, dword [eax]
call dword [edx + 0xc]
mov edx, eax
mov eax, ebx
call sub.vcl70.bpl__Comctrls_TProgressBar_SetMax_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x90]
xor edx, edx
call sub.vcl70.bpl__Comctrls_TProgressBar_SetPosition_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x90]
mov edx, 1
call sub.vcl70.bpl__Comctrls_TProgressBar_SetStep_qqri
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x50]
mov edx, 0x579958
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x579093
push 0x13880
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x1c]
lea eax, [ebp - 0x50]
mov ecx, 0x579964
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x50]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov edx, 0x57997c
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_open_qqr17System_AnsiStringt1i
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x50]
mov edx, 0x57998c
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x5790d3
push 0x13880
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x1c]
lea eax, [ebp - 0x54]
mov ecx, 0x579998
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x54]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov edx, 0x57997c
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_open_qqr17System_AnsiStringt1i
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x50]
mov edx, 0x5799b0
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x579113
push 0x13880
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x1c]
lea eax, [ebp - 0x58]
mov ecx, 0x5799bc
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov ecx, dword [ebp - 0x58]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov edx, 0x57997c
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_open_qqr17System_AnsiStringt1i
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov ecx, 0x5799d8
mov edx, 0x579a14
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_setRequestHeader_qqr17System_AnsiStringt1
lea eax, [ebp - 0x30]
mov edx, 0x579a2c
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
push 1
lea eax, [ebp - 0x5c]
push eax
mov eax, dword [ebp - 0x30]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0x30]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
pop ecx
call sym.P_Interface.bpl__Unitxmlhttp_TXmlhttp_send_qqrpcio
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov edx, dword [eax + 0x18]
mov eax, 0x579a50
call sub.rtl70.bpl__System__LStrPos_qqrv
test eax, eax
jle 0x5791a3
lea edx, [ebp - 0x60]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov eax, dword [eax + 0x18]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x60]
xor ecx, ecx
mov eax, 0x579a64
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x579785
xor eax, eax
push ebp
push 0x5792cf
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x64]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov eax, dword [eax + 0x18]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x64]
call sym.P_Interface.bpl__Superobject_so_qqr17System_AnsiString
mov ebx, eax
test ebx, ebx
je 0x57927c
lea eax, [ebp - 0x78]
mov edx, 0x579a74
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x78]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x14]
push eax
lea eax, [ebp - 0x88]
mov edx, 0x579a84
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x88]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x14]
lea edx, [ebp - 0x68]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov edx, dword [ebp - 0x68]
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x310]
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
lea eax, [ebp - 0x9c]
mov edx, 0x579a74
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0x9c]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x14]
push eax
lea eax, [ebp - 0xac]
mov edx, 0x579a94
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea edx, [ebp - 0xac]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x14]
lea edx, [ebp - 0x8c]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov edx, dword [ebp - 0x8c]
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x314]
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
jmp 0x5792c5
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x28]
mov edx, dword [eax + 0x18]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov edx, 0x579aa4
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x74]
xor ecx, ecx
mov edx, 0x579abc
mov eax, 0x579a64
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x579785
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x579316
mov edx, 0x579adc
mov eax, dword [ebp - 0x38]
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x50]
mov edx, 0x579958
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x57934b
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x31c]
mov edx, 0x579af8
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x50]
mov edx, 0x57998c
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x579373
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x31c]
mov edx, 0x579b0c
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x50]
mov edx, 0x5799b0
call sub.rtl70.bpl__System__LStrCmp_qqrv
jne 0x57939b
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x31c]
mov edx, 0x579b20
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
push 0x579b34
lea edx, [ebp - 0xbc]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0xbc]
mov edx, dword [eax]
call dword [edx + 0xc]
lea edx, [ebp - 0xb8]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0xb8]
push 0x579b44
lea eax, [ebp - 0xb4]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xb4]
mov eax, dword [ebp - 0x38]
mov eax, dword [eax + 0x318]
call sub.vcl70.bpl__Controls_TControl_SetText_qqrx17System_AnsiString
mov eax, dword [ebp - 0x38]
mov edx, dword [eax]
call dword [edx + 0xec]
mov eax, dword [ebp - 0x38]
cmp byte [eax + 0x324], 0
jne 0x57941c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x579785
lea edx, [ebp - 0xc0]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0xc0]
mov edx, dword [eax]
call dword [edx + 0xc]
mov ebx, eax
dec ebx
test ebx, ebx
jl 0x579688
inc ebx
xor esi, esi
lea edx, [ebp - 0xc4]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0xc4]
push eax
lea eax, [ebp - 0xd4]
mov edx, esi
mov cl, 0xfc
call sub.rtl70.bpl__Variants__OleVarFromInt_qqrr8TVarDataxixzc
lea edx, [ebp - 0xd4]
lea ecx, [ebp - 0x14]
pop eax
mov edi, dword [eax]
call dword [edi + 0x10]
lea edx, [ebp - 0xd8]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0xd8]
lea ecx, [ebp - 0x18]
mov edx, 0x579b50
mov edi, dword [eax]
call dword [edi + 0x38]
lea edx, [ebp - 0xdc]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x14]
mov eax, dword [ebp - 0xdc]
lea ecx, [ebp - 0x1c]
mov edx, 0x579b64
mov edi, dword [eax]
call dword [edi + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x90]
test eax, eax
je 0x5794ea
call sub.vcl70.bpl__Comctrls_TProgressBar_StepIt_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x90]
call sub.vcl70.bpl__Controls_TControl_Refresh_qqrv
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_ProcessMessages_qqrv
lea eax, [ebp - 0x20]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x24]
push eax
mov ecx, dword [ebp - 0x1c]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 4]
call sym.P_Interface.bpl__Skbwkpserver_SKBW20_KPSERVER_SendToServer_qqr44System__DelphiInterface_t16Xmlintf_IXMLNode_t1r17System_AnsiSt
test al, al
je 0x579680
lea ecx, [ebp - 0xf4]
mov edx, 0x579b7c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0xf4]
lea ecx, [ebp - 0xe4]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0xe4]
lea edx, [ebp - 0xe0]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0xe0]
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea eax, [ebp - 0x2c]
mov edx, 0x579958
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
cmp word [ebp + 0xa], 0
je 0x579680
mov eax, dword [ebp - 0x20]
push eax
push 0
mov eax, dword [ebp - 0x24]
call sub.rtl70.bpl__Sysutils_StrToDate_qqrx17System_AnsiString
add esp, 0xfffffff8
fstp qword [esp]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x10c]
mov edx, 0x579b9c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x10c]
lea ecx, [ebp - 0xfc]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0xfc]
lea edx, [ebp - 0xf8]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0xf8]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
add esp, 0xfffffff4
fstp xword [esp]
wait
push 0
push 0
push 0
lea ecx, [ebp - 0x124]
mov edx, 0x579bb0
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x124]
lea ecx, [ebp - 0x114]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x114]
lea edx, [ebp - 0x110]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x110]
call sub.rtl70.bpl__Sysutils_StrToFloatDef_qqrx17System_AnsiStringxg
add esp, 0xfffffff4
fstp xword [esp]
wait
mov eax, dword [ebp - 0x2c]
push eax
mov eax, dword [ebp - 0x28]
push eax
push 0
push 0x579958
push 0
push 0
lea ecx, [ebp - 0x13c]
mov edx, 0x579b7c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0xc]
lea eax, [ebp - 0x13c]
lea ecx, [ebp - 0x12c]
xor edx, edx
call sub.rtl70.bpl__Variants_VarToStrDef_qqrrx14System_Variantx17System_AnsiString
mov eax, dword [ebp - 0x12c]
lea edx, [ebp - 0x128]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x128]
xor ecx, ecx
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
inc esi
dec ebx
jne 0x579443
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x90]
test eax, eax
je 0x57969f
xor edx, edx
call sub.vcl70.bpl__Comctrls_TProgressBar_SetPosition_qqri
mov eax, dword [ebp - 0x34]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x5796f1
lea edx, [ebp - 0x140]
mov eax, 0x579bcc
call sym.P_Interface.bpl__Publicutil_ReadRegString_qqr17System_AnsiString
mov eax, dword [ebp - 0x140]
mov edx, 0x57998c
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x5796f1
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x50]
mov edx, 0x5799b0
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x5796f1
push 0
push 0
mov edx, dword [ebp - 0x34]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov byte [ebp - 5], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x57973c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x579785
mov eax, dword [ebp - 4]
mov eax, dword [eax + 4]
mov eax, dword [eax + 0x90]
test eax, eax
je 0x579760
xor edx, edx
call sub.vcl70.bpl__Comctrls_TProgressBar_SetPosition_qqri
call sub.myfanwait.dll_DelBox
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
mov eax, dword [ebp - 0x34]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5798f1
lea eax, [ebp - 0x144]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x13c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x12c]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x124]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x114]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x10c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xfc]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xf4]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xe4]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xdc]
mov edx, dword [sym.imp.xmlrtl70.bpl___xp_20Xmlintf_IXMLNodeList]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0xd4]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xc4]
mov edx, dword [sym.imp.xmlrtl70.bpl___xp_20Xmlintf_IXMLNodeList]
mov ecx, 3
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0xb8]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xac]
mov edx, dword [sym.imp.rtl70.bpl___xp_14System_Variant]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x8c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x88]
mov edx, dword [sym.imp.rtl70.bpl___xp_14System_Variant]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x68]
mov edx, 7
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x4c]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x48]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x44]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x40]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x30]
mov edx, 5
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c]
mov edx, dword [sym.imp.xmlrtl70.bpl___xp_16Xmlintf_IXMLNode]
mov ecx, 4
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret