anchor.diff:    ReaderInput: IXMLReaderInput;
   begin
     Assert(FileName <> '', 'Need XML File name');
  -  CheckHR(CreateXmlReader(XMLReaderGuid, Result, nil));
  +  EXmlLite.Check(CreateXmlReader(XMLReaderGuid, Result, nil));
     if Result <> nil then
     begin
  -    CheckHR(Result.SetProperty(XmlReaderProperty_DtdProcessing,
  +    EXmlLite.Check(Result.SetProperty(XmlReaderProperty_DtdProcessing,
         Ord(XmlDtdProcessing_Parse)));
       Stream := OpenXmlFileStreamReader(FileName);
  -    CheckHR(CreateXmlReaderInputWithEncodingName(Stream, nil,
  +    EXmlLite.Check(CreateXmlReaderInputWithEncodingName(Stream, nil,
         PWideChar(AEncodingName), True, nil, ReaderInput));
  -    CheckHR(Result.SetInput(ReaderInput));
  +    EXmlLite.Check(Result.SetInput(ReaderInput));
     end;
   end;
   
   
   function CreateXmlFileWriter(const FileName: string): IXMLWriter;
   begin
  -  CheckHR(CreateXmlWriter(XMLWriterGuid, iUnknown(Result), nil));
  +  EXmlLite.Check(CreateXmlWriter(XMLWriterGuid, iUnknown(Result), nil));
     if (Result <> nil) and (FileName <> '') then
  -    CheckHR(Result.SetOutput(OpenXmlFileStreamWriter(FileName)));
  +    EXmlLite.Check(Result.SetOutput(OpenXmlFileStreamWriter(FileName)));
   end;
   
   function CreateXmlFileWriter(const FileName: string; const Encoding: TEncoding): IXmlWriter;
  
positive.code:   Stream: IStream;
  begin
    Assert(FileName <> '', 'Need XML File name');
    CheckHR(CreateXmlWriter(XMLWriterGuid, IUnknown(Result), nil));
    if (Result <> nil) then
    begin
      Stream := OpenXmlFileStreamWriter(FileName);
      CheckHR(CreateXmlWriterOutputWithEncodingName(Stream, nil,
        PWideChar(AEncodingName), WriterOutput));
      Assert(WriterOutput <> nil);
      CheckHR(Result.SetOutput(WriterOutput));
    end;
  end;
  
  
negative.code: 
  function CreateXmlFileReader(const FileName: string): IXMLReader;
  begin
    EXmlLite.Check(CreateXmlReader(XMLReaderGuid, Result, nil));
    if (Result <> nil) and (FileName <> '') then
    begin
      EXmlLite.Check(Result.SetProperty(XmlReaderProperty_DtdProcessing, LongWord(XmlDtdProcessing_Parse)));
      EXmlLite.Check(Result.SetInput(OpenXmlFileStreamReader(FileName)));
    end;
  end;
  
  function CreateXmlFileReader(const FileName: string; const Encoding: TEncoding): IXmlReader;
  begin
    Result := CreateXmlFileReader(FileName, Encoding.CodePage);
  end;
  