anchor.diff:    i: integer;
   begin
     listFiltered.Clear;
  -  list_Simple.Clear;
  -  list_Fuzzy.Clear;
  +  listFiltered_Simple.Clear;
  +  listFiltered_Fuzzy.Clear;
   
     for i:= 0 to listItems.Count-1 do
       if IsFiltered(i, bSimple) then
       begin
         if bSimple then
  -        list_Simple.Add(Pointer(PtrInt(i)))
  +        listFiltered_Simple.Add(Pointer(PtrInt(i)))
         else
  -        list_Fuzzy.Add(Pointer(PtrInt(i)));
  +        listFiltered_Fuzzy.Add(Pointer(PtrInt(i)));
       end;
   
  -  listFiltered.AddList(list_Simple);
  -  listFiltered.AddList(list_Fuzzy);
  +  listFiltered.AddList(listFiltered_Simple);
  +  listFiltered.AddList(listFiltered_Fuzzy);
   
     list.ItemIndex:= 0;
     list.ItemTop:= 0;
  
positive.code:     { private declarations }
      FMultiline: boolean;
      listFiltered: TFPList;
      list_Simple: TFPList;
      list_Fuzzy: TFPList;
      FColorBg: TColor;
      FColorBgSel: TColor;
      FColorFont: TColor;
  
negative.code: 
  procedure TfmMenuApi.FormDestroy(Sender: TObject);
  begin
    FreeAndNil(listFiltered_Fuzzy);
    FreeAndNil(listFiltered_Simple);
    FreeAndNil(listFiltered);
    FreeAndNil(listItems);
  end;
  