anchor.diff:  
   interface
   
  -//TODO: Catch exceptions in worker and report them back
  -
   uses
  +  System.SysUtils,
     OtlSync, OtlComm, OtlTaskControl,
     DelphiLens.Intf,
     DelphiLensUI.UIXStorage,
  
positive.code:     FUIXStorage     : IDLUIXStorage;
      FWorker         : IOmniTaskControl;
    protected
      procedure ScanComplete(const result: IDLScanResult; scanID: integer);
    public
      constructor Create(const projectName: string);
  
negative.code: implementation
  
  uses
    System.UITypes,
    Vcl.Forms,
    Spring,
    DSiWin32,
  