anchor.diff:    end;
   end; { TDelphiLensUIWorker.FileModified }
   
  -function TDelphiLensUIWorker.GetScanID: integer;
  -begin
  -  Result := FScanID.Value;
  -end; { TDelphiLensUIWorker.GetScanID }
  -
   function TDelphiLensUIWorker.Initialize: boolean;
   begin
     Result := inherited Initialize;
  
positive.code:     FOwner     : TDelphiLensUIProject;
      FScanLock  : IOmniCriticalSection;
      FScanID    : TOmniAlignedInt32;
    strict
    private
      function GetScanID: integer; protected
      procedure ReportException(const funcName: string; E: Exception);
      procedure ScheduleRescan;
    protected
  
negative.code:         //TODO: Report error
    //      Console.Writeln('Activate: Project = nil')
    //      break; //repeat
        else if FCurrentResultID >= FCurrentRescanID then begin // may run ahead because of the timer
          context := CreateWorkerContext(FUIXStorage, FProjectName, FScanResult,
            TDLUIXLocation.Create(fileName, unitName, line, column),
            tabNames.Split([#13]), monitorNum);
          DLUIShowUI(context);
          break; //repeat
        end
        else
      finally
        FScanLock.Release;
      end;
    until false;
  
    navigate := assigned(context) and context.Target.HasValue;
  