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:     FUIXStorage     : IDLUIXStorage;
      FWorker         : IOmniTaskControl;
    protected
      procedure ScanComplete(const result: IDLScanResult; scanID: integer);
    public
      constructor Create(const projectName: string);
  
negative.code: 
  interface
  
  uses
    System.SysUtils,
    OtlSync, OtlComm, OtlTaskControl,
    DelphiLens.Intf,
    DelphiLensUI.UIXStorage,
  