[infopol]

при вызове

Код:

 function GetXML(Str : String) : IUnknown;
var
  xmlDoc : iXMLDocument;
begin

    try
   xmlDoc:= CreateXmlDocument;
  if FileExists(str)  then
xmlDoc.Load(str)
else
  xmlDoc.LoadXML(str);

  Result := xmlDoc as IUnknown;
     except
         Result:=nil;
     end;
end;

В этом фрагменте вылетает ошибка.

Код:

procedure TTestForm.Button1Click(Sender: TObject);
var
  oxml:IUnknown;
  ip2:OleVariant;
	aDoc: IXmlDocument;
	anElem2: IXmlNode;
begin
 ip2:=CreateOleObject('Ip2Com_events.Ip2Com');
oxml:=ip2.F_IXML_OBJECT(ExtractFilePath(ParamStr(0)) + 'health.xml')  ;

end;