anchor.diff:      procedure CreateLibraryPathUnits(OldItems: TDictionary<string, TPasFile>);
       procedure OnFinishedLibraryPathScan(FindUnits: TDictionary<string, TPasFile>);
   
  -    procedure CreateProjectPathUnits(OldFiles: TDictionary<string, TPasFile>);
  +    procedure CreateProjectPathUnits(NewFiles: TDictionary<string, TFileInfo>;
  +      OldFiles: TDictionary<string, TPasFile>);
       procedure OnFinishedProjectPathScan(FindUnits: TDictionary<string, TPasFile>);
   
       procedure CreatingProject(const ProjectOrGroup: IOTAModule);
  
positive.code: 
    Winapi.Windows,
  
    Xml.XMLIntf;
  
  type
    TEnvironmentController = class(TInterfacedObject, IOTAProjectFileStorageNotifier, IRFUEnvironmentController)
  
negative.code: 
  implementation
  
  
  
  { TEnvUpdateControl }
  