[infopol]

Написал такую функцию.Но результат - Ошибка Com Class не зарегистрирован.Что я делаю не так?

Код:

  function XmlObjCreate(const files:string):OleVariant ;
var
  XmlObj:TXMLDocument;
   aStr:TStringStream;
   begin

     XmlObj:= TXMLDocument.Create(files);
  try
  if FileExists(files) then
  begin


   XmlObj.FileName:=files ;
   XmlObj.LoadFromFile(files);
   end
   else

   begin
    aStr:=TStringStream.Create(files);
   XmlObj.LoadFromStream(aStr);//,xetUTF_8);
    try XmlObj.XML.Text:=files;  except
    end;
    aStr.Free;

     Result:=XmlObj.ComObject;
     end;
   finally
     XmlObj.Active:=True;

 Result:=  XmlObj.ComObject;

    end;
   end;