anchor.diff:    end;
   end;
   
  -procedure TEnvironmentController.CreateProjectPathUnits(OldFiles: TDictionary<string, TPasFile>);
  -var
  -  Files: TDictionary<string, TFileInfo>;
  +procedure TEnvironmentController.CreateProjectPathUnits(NewFiles: TDictionary<string, TFileInfo>;
  + OldFiles: TDictionary<string, TPasFile>);
  +var
     Paths: TStringList;
   begin
     if FProjectUnits <> nil then
  
positive.code: 
  implementation
  
  uses
    FindUnit.FileEditor,
    FindUnit.FormMessage,
    FindUnit.OTAUtils,
    FindUnit.StringPositionList,
    FindUnit.Utils;
  
  
  { TEnvUpdateControl }
  
negative.code:     Logger.Debug('TEnvironmentController.LoadProjectPath: no');
      Exit;
    end;
  
    if GetCurrentProject = nil then
      Exit;
  
    Logger.Debug('TEnvironmentController.LoadProjectPath: yes');
  
  