[infopol]

Код:

function GetXML(Str : String) : IUnknown;
var
  xmlDoc : TXMLDocument;
begin
  xmlDoc := TXMLDocument.Create(nil);
//if FileExists(str)  then
//begin

  xmlDoc.LoadFromXML(str);
  xmlDoc.Active := True;


 Result :=  xmlDoc as IUnknown;

 // end;

  end;