FMX Listview Einträge durchgehen

[jacky213]

Ich versuche alle Listview Einträge durchzugehen und einen Eintrag zu Löschen sofern ein Element im Item sichtbar ist. Das funktioniert mit folgendem Code auch, allerdings bleiben beim ersten durchgang noch einige Items die gelöscht werden sollten in der Listview vorhanden. Sie verschwinden erst nach dem zweiten oder dritten durchgang.

Delphi-Quellcode:

   for Item in LVEinkauf.Items do
       if Item.Objects.FindObjectT<TListItemImage>('LineImage').Visible = true
       then LVEinkauf.Items.Delete(Item.Index);

woran kann es liegen und wie bekomme ich das ganze ohne Repeat hin?

Danke