anchor.diff:    self.Width:= UiOps.ListboxWidth;
   
     listItems:= TStringlist.Create;
  -  listItemsFiltered:= TStringlist.Create;
  +  listFiltered:= TList.Create;
   end;
   
   procedure TfmMenuApi.editChange(Sender: TObject);
  
positive.code:       const ARect: TRect);
    private
      { private declarations }
      listItemsFiltered: TStringlist;
      procedure DoFilter;
      function GetResultCmd: integer;
      function IsFiltered(AOrigIndex: integer): boolean;
  
negative.code: var
    i: integer;
  begin
    listFiltered.Clear;
    for i:= 0 to listItems.Count-1 do
      if IsFiltered(i) then
        listFiltered.Add(Pointer(PtrInt(i)));
  
    list.ItemIndex:= 0;
    list.ItemTop:= 0;
    list.ItemCount:= listFiltered.Count;
    list.Invalidate;
  end;
  
  