anchor.diff:  implementation
   
   uses
  -  DelphiAST, DelphiAST.Writer, DelphiAST.Classes, XmlDoc;
  +  DelphiAST, DelphiAST.Writer, DelphiAST.Classes;
   
   {$R *.dfm}
   
  
positive.code:       SL.LoadFromFile(OpenDialog1.FileName);
  
        try
          Memo1.Lines.Text := FormatXMLData(Parse(SL.Text));
        except
          on E: EParserException do
            Memo1.Lines.Add(Format('[%d, %d] %s', [E.Line, E.Col, E.Message]));
  
negative.code: 
        SyntaxTree := ASTBuilder.Run(StringStream);
        try
          Result := TSyntaxTreeWriter.ToXML(SyntaxTree, True);
        finally
          SyntaxTree.Free;
        end;
  