begin for i := 0 to favorites.Count - 1 do begin if favorites.Items[i].name = 'hogehoge' then begin FavoriteView.Items.BeginUpdate; TObject(TFavoriteList(favorites.Items[i])).Free; FavoriteView.Items.EndUpdate; SaveFavorites(true); UpdateFavorites; UpdateFavoritesMenu; Break; end; end; end;