anchor.diff:    searchBox   : TSearchBox;
   begin
     listBox := (Sender as TListBox);
  -  searchBox := TObject((TObject(listBox.Tag) as TTimer).Tag) as TSearchBox;
  -  filteredList := (FActionMap.Value[searchBox] as IDLUIXFilteredListAction);
  +  filteredList := (FActionMap.Value[FListMap[listBox].SearchBox] as IDLUIXFilteredListAction);
     EnableActions(filteredList.ManagedActions, listBox.ItemIndex >= 0);
     SetLocationAndOpen(Sender as TListBox, false);
   end; { TDLUIXVCLFloatingFrame.HandleListBoxClick }
  +
  +procedure TDLUIXVCLFloatingFrame.HandleListBoxData(control: TWinControl; index: integer;
  +  var data: string);
  +begin
  +  data := FListMap[control].Content[index];
  +end; { TDLUIXVCLFloatingFrame.HandleListBoxData }
  +
  +function TDLUIXVCLFloatingFrame.HandleListBoxDataFind(control: TWinControl;
  +  findString: string): integer;
  +begin
  +  Result := FListMap[control].Content.IndexOf(findString);
  +end; { TDLUIXVCLFloatingFrame.HandleListBoxDataFind }
   
   procedure TDLUIXVCLFloatingFrame.HandleListBoxKeyDown(Sender: TObject;
     var key: word; shift: TShiftState);
  
positive.code:   options: TDLUIXFrameActionOptions): TRect;
  var
    listBox    : TListBox;
    searchBox  : TSearchBox;
    searchTimer: TTimer;
  begin
  
negative.code:   listBox.Height := CFilteredListHeight;
    listBox.Left := FColumnLeft;
    listBox.Top := searchBox.BoundsRect.Bottom + CSearchToListBoxSeparator;
    listBox.Style := lbVirtual;
    listBox.OnClick := HandleListBoxClick;
    listBox.OnKeyDown := HandleListBoxKeyDown;
    listBox.OnData := HandleListBoxData;
    listBox.OnDataFind := HandleListBoxDataFind;
    ApplyOptions(listBox, options);
  
    searchTimer := TTimer.Create(FForm);
  