Access violation beim Löschen von Listview-Einträgen

[Union]

Wie wär's mit diesem Versuch

Delphi-Quellcode:

i := 0;
while i < ListView.Items.Count-1 do
begin
  if ListView.Items[i].Selected then 
    ListView.Items[i].Delete
  else
     inc(i);
end;