anchor.diff:  
   { TIncludeHandler }
   
  +constructor TIncludeHandler.Create(const Path: string);
  +begin
  +  inherited Create;
  +  FPath := Path;
  +end;
  +
   function TIncludeHandler.GetIncludeFileContent(const FileName: string): string;
  +var
  +  FileContent: TStringList;
   begin
  -  //ShowMessage(FileName);
  -  Result := '';
  -  if FileName <> 'CompilerSettings.inc' then
  -    Result := 'abc,' + #13#10 + 'def,' + #13#10 + 'ghi';
  +  FileContent := TStringList.Create;
  +  try
  +    FileContent.LoadFromFile(TPath.Combine(FPath, FileName));
  +    Result := FileContent.Text;
  +  finally
  +    FileContent.Free;
  +  end;
   end;
   
   end.
  
positive.code: implementation
  
  uses
    DelphiAST, DelphiAST.Writer, DelphiAST.Classes;
  
  {$IFNDEF FPC}
    {$R *.dfm}
  
negative.code:     OpenDialog1: TOpenDialog;
      procedure OpenDelphiUnit1Click(Sender: TObject);
    private
      function Parse(const FileName: string): string;
    public
      { Public declarations }
    end;
  
    TIncludeHandler = class(TInterfacedObject, IIncludeHandler)
    private
      FPath: string;
    public
      constructor Create(const Path: string);
      function GetIncludeFileContent(const FileName: string): string;
    end;
  
  