anchor.diff:  
   function CreateXmlFileReader(const FileName: string): IXMLReader;
   begin
  -  CheckHR(CreateXmlReader(XMLReaderGuid, Result, nil));
  +  EXmlLite.Check(CreateXmlReader(XMLReaderGuid, Result, nil));
     if (Result <> nil) and (FileName <> '') then
     begin
  -    CheckHR(Result.SetProperty(XmlReaderProperty_DtdProcessing, LongWord(XmlDtdProcessing_Parse)));
  -    CheckHR(Result.SetInput(OpenXmlFileStreamReader(FileName)));
  +    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;
  -var
  -  input: IXmlReaderInput;
  -  stream: IStream;
   begin
     Result := CreateXmlFileReader(FileName, Encoding.CodePage);
   end;
  
positive.code:   ReaderInput: IXMLReaderInput;
  begin
    Assert(FileName <> '', 'Need XML File name');
    CheckHR(CreateXmlReader(XMLReaderGuid, Result, nil));
    if Result <> nil then
    begin
      CheckHR(Result.SetProperty(XmlReaderProperty_DtdProcessing,
        Ord(XmlDtdProcessing_Parse)));
      Stream := OpenXmlFileStreamReader(FileName);
      CheckHR(CreateXmlReaderInputWithEncodingCodePage(Stream, nil,
        AEncodingCodePage, True, nil, ReaderInput));
      CheckHR(Result.SetInput(ReaderInput));
    end;
  end;
  
  
negative.code:   Stream: IStream;
  begin
    Assert(FileName <> '', 'Need XML File name');
    EXmlLite.Check(CreateXmlWriter(XMLWriterGuid, IUnknown(Result), nil));
    if (Result <> nil) then
    begin
      Stream := OpenXmlFileStreamWriter(FileName);
      EXmlLite.Check(CreateXmlWriterOutputWithEncodingCodePage(Stream, nil,
        AEncodingCodePage, WriterOutput));
      Assert(WriterOutput <> nil);
      EXmlLite.Check(Result.SetOutput(WriterOutput));
    end;
  end;
  
  