anchor.diff:    searchTimer.Interval := 250;
     searchTimer.OnTimer := HandleSearchBoxTimer;
   
  -  searchBox.Tag := NativeInt(listBox);
  -  listBox.Tag := NativeInt(searchTimer);
  -  searchTimer.Tag := NativeInt(searchBox);
  +  listBoxData := TDLUIXVCLListStorage.Create(listBox, searchBox, searchTimer);
  +  FListMap.Add(listBox, listBoxData);
  +  FListMap.Add(searchBox, listBoxData);
  +  FListMap.Add(searchTimer, listBoxData);
   
     FActionMap.Add(searchBox, filteredList);
   
  
positive.code: 
  procedure TDLUIXVCLFloatingFrame.FilterListBox(Sender: TObject);
  var
    filteredList : IDLUIXFilteredListAction;
    listBox      : TListBox;
    matchesSearch: TPredicate<string>;
  
negative.code:   var
      [Managed(false)] FActionMap: IBidiDictionary<TObject, IDLUIXAction>;
      [Managed(false)] FForm     : TVCLFloatingForm;
      [Managed(false)] FListMap  : IDictionary<TComponent, IDLUIXVCLListStorage>;
    var
      FColumnTop     : integer;
      FColumnLeft    : integer;
  