anchor.diff:  unit Main;
   interface
   uses
  -  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtDlgs, SysUtils, Classes, StdCtrls, StrUtils, INIFiles, Vcl.ComCtrls;
  +  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtDlgs, SysUtils,
  +  Classes, StdCtrls, StrUtils, INIFiles, Vcl.ComCtrls, Shlwapi;
   
   type
     TForm1 = class(TForm)
  
positive.code:       aResultList.AddStrings(tmpList);
  
        if aOutputFile <> '' then
          aResultList.SaveToFile(aOutputFile);
      end;
      FreeAndNil(tmpList);
    end;
  
negative.code: 
  procedure TForm1.btnGenerateClick(Sender: TObject);
  
    function RelToAbs(const RelPath, BasePath: string): string;
    var
      Dst: array[0..200-1] of char;
    begin
      PathCanonicalize(@Dst[0], PChar(IncludeTrailingBackslash(BasePath) + RelPath));
      result := Dst;
    end;
  
    procedure ParseList(aName: String; aResultList: TStringList; aInputFile,aHeaderFile,aOutputFile: String; aHasReturn: Boolean = True);
    var
      tmpList: TStringList;
      Path: String;
    begin
      tmpList := TStringList.Create;
      if FileExists(aInputFile) then
  