anchor.diff:      FAbortSearch: boolean;
       FCoordinates: ICoordinates;
       FInSearch   : boolean;
  +    FLastSearch : string;
       FSearchBox  : TSearchBox;
       FTimer      : TTimer;
       FVirtualTree: TVirtualStringTree;
     strict protected
  +    procedure SetLastSearch(const value: string);
  +    function  GetLastSearch: string;
       function  GetAbortSearch: boolean;
       function  GetCoordinates: ICoordinates;
       function  GetInSearch: boolean;
  
positive.code:     end;
    end;
  end; { TDLUIXVCLFloatingFrame.HandleSearchBoxKeyDown }
  
  procedure TDLUIXVCLFloatingFrame.HandleSearchBoxTimer(Sender: TObject);
  var
  
negative.code:     function  GetAbortSearch: boolean;
      function  GetCoordinates: ICoordinates;
      function  GetInSearch: boolean;
      function  GetLastSearch: string;
      function  GetSearchBox: TSearchBox;
      function  GetSearchTimer: TTimer;
      function  GetVirtualTree: TVirtualStringTree;
      procedure SetAbortSearch(const value: boolean);
      procedure SetCoordinates(const value: ICoordinates);
      procedure SetInSearch(const value: boolean);
      procedure SetLastSearch(const value: string);
    //
      property AbortSearch: boolean read GetAbortSearch write SetAbortSearch;
      property Coordinates: ICoordinates read GetCoordinates write SetCoordinates;
      property InSearch: boolean read GetInSearch write SetInSearch;
      property LastSearch: string read GetLastSearch write SetLastSearch;
      property SearchBox: TSearchBox read GetSearchBox;
      property SearchTimer: TTimer read GetSearchTimer;
      property VirtualTree: TVirtualStringTree read GetVirtualTree;
  