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: interface
  
  uses
    Classes, Generics.Collections, FindUnit.PasParser, OtlParallelFU, ToolsAPI, XMLIntf, FindUnit.FileCache, SysUtils, Log4Pascal;
  
  type
    TEnvironmentController = class(TInterfacedObject, IOTAProjectFileStorageNotifier)
  
negative.code:     EnvironmentOptions := (BorlandIDEServices as IOTAServices).GetEnvironmentOptions;
      Paths.DelimitedText := EnvironmentOptions.Values['LibraryPath'] + ';' + EnvironmentOptions.Values['BrowsingPath'];
  
      FLibraryPathWorker := TParserWorker.Create(Paths, nil);
      FLibraryPathWorker.Start(OnFinishedLibraryPathScan);
    finally
      Paths.Free;
    end;
  