anchor.diff:    Result := 'RfUtils - Replace FindUnit';
   end;
   
  +function TEnvironmentController.GetProjectPathStatus: string;
  +begin
  +  Result := 'Ready';
  +  if FProjectPathWorker <> nil then
  +    Result := Format('%d/%d Files Processed...', [FProjectPathWorker.ParsedItems, FProjectPathWorker.ItemsToParse]);
  +end;
  +
   function TEnvironmentController.GetProjectUnits(const SearchString: string): TStringList;
   begin
     if IsProjectsUnitReady then
  
positive.code: interface
  
  uses
    Classes, Generics.Collections, FindUnit.PasParser, OtlParallelFU, ToolsAPI, XMLIntf, FindUnit.FileCache, SysUtils, Log4Pascal;
  
  type
    TEnvironmentController = class(TInterfacedObject, IOTAProjectFileStorageNotifier)
  
negative.code:   if FLibraryPath <> nil then
      Exit;
  
    FLibraryPath := TUnitsController.Create;
  
    while (BorlandIDEServices as IOTAServices) = nil do
      Sleep(1000);
  
    Paths := TStringList.Create;
    try
      Paths.Delimiter := ';';
  