anchor.diff:  
       Files.Add(FileDesc);
     end;
  -  TParserWorker.Create(nil, Files).Start(OnFinishedProjectPathScan);
  +
  +  FreeAndNil(FProjectPathWorker);
  +  FProjectPathWorker := TParserWorker.Create(nil, Files);
  +  FProjectPathWorker.Start(OnFinishedProjectPathScan);
   end;
   
   procedure TEnvironmentController.CreatingProject(const ProjectOrGroup: IOTAModule);
  
positive.code:   FProjectUnits.Free;
    FLibraryPath.Free;
    inherited;
  end;
  
  function TEnvironmentController.GetLibraryPathUnits(const SearchString: string): TStringList;
  
negative.code:   if FLibraryPath <> nil then
      Exit;
  
    FLibraryPath := TUnitsController.Create;
  
    while (BorlandIDEServices as IOTAServices) = nil do
      Sleep(1000);
  
    Paths := TStringList.Create;
    try
      Paths.Delimiter := ';';
  