anchor.diff:    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.
positive.code:   XmlStandalone_Omit  = 0;
    XmlStandalone_Yes  = 1;
    XmlStandalone_No  = 2;
  
    XmlWriterProperty_MultiLanguage = 0;
    XmlWriterProperty_Indent = 1;
  
negative.code: function OpenXmlFileStreamReader(const FileName: string): IStream;
  function OpenXmlFileStreamWriter(const FileName: string): IStream;
  
  procedure CheckHR(HR: HRESULT);
  
  implementation
  
  uses Classes, SysUtils;
  