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