anchor.diff:    buf: array[0..260] of Char;
     n: Integer;
     f: TSearchRec;
  -  i: Integer;
   begin
     Result := False;
   
  
positive.code:     finally
        Free;
      end;
  
      kmpinf.RemoveFilePaths;
  
  
negative.code: 
      FOutputFileName: string;
      FTempFiles: TTempFiles;
  
      procedure FatalMessage(const msg: string);
      procedure WriteMessage(AState: TProjectLogState; const msg: string);   // I4706
  