anchor.diff:        Screen.Cursor := oldCursor;
   
         if not assigned(FScanResult) then
  -        //TODO: Report error
  -  //      Console.Writeln('Activate: Project = nil')
  -  //      break; //repeat
  +        raise Exception.Create('TDelphiLensUIProject.Activate: FScanResult = nil')
         else if FCurrentResultID = FCurrentRescanID then begin
           context := CreateWorkerContext(FUIXStorage, FProjectName, FScanResult,
             TDLUIXLocation.Create(fileName, unitName, line, column),
  
positive.code: end; { TDelphiLensUIWorker.ProjectModified }
  
  procedure TDelphiLensUIWorker.ReportException(const funcName: string; E: Exception);
  begin
    //TODO: Temporary solution
  //  Console.Writeln(['Worker exception in ', funcName, ' ', E.ClassName, ': ', E.Message]);
  end; { TDelphiLensUIWorker.ReportException }
  
  procedure TDelphiLensUIWorker.Rescan(var scanID: integer);
  
negative.code:   FCurrentRescanID := waiter.Value;
  end; { TDelphiLensUIProject.ProjectModified }
  
  procedure TDelphiLensUIProject.ReportException(const funcName, excClass, excMessage: string);
  begin
    raise Exception.CreateFmt('Exception in worker method %s. [%s] %s', [funcName, excClass, excMessage]);
  end;
  
  procedure TDelphiLensUIProject.Rescan;
  var
    waiter: IOmniWaitableValue;
  