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

[Der.Kaktus]

Hallo,

probiers mal so...

Delphi-Quellcode:

procedure TForm4.DLT_BTNClick(Sender: TObject); 
var 
I,L,CNT:Integer; 
begin 
 if Not( ListView.ItemIndex = -1 ) then 
 for I := 0 to ListView.Items.Count - 1 do 
// Try mal weggelassen
  if ListView.Items[I].Selected then ListView.Items[i].Delete 
end;

Gruss