anchor.diff:  function OpenXmlFileStreamReader(const FileName: string): IStream;
   function OpenXmlFileStreamWriter(const FileName: string): IStream;
   
  +procedure CheckHR(HR: HRESULT);
  +
   implementation
   
   uses Classes, SysUtils;
  
positive.code:   XmlStandalone_Omit  = 0;
    XmlStandalone_Yes  = 1;
    XmlStandalone_No  = 2;
  
    XmlWriterProperty_MultiLanguage = 0;
    XmlWriterProperty_Indent = 1;
  
negative.code:   Result := TStreamAdapter.Create(TFileStream.Create(FileName, fmCreate), soOwned);
  end;
  
  procedure CheckHR(hr: HRESULT);
  begin
    if (hr < 0) then
      raise Exception.CreateFmt('XmlLite exception! Code: %d', [hr]);
  end;
  end.