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

[dazar_t]

Guten Tag

Immer wen ich diesen Code ausführe :

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
    if ListView.Items[I].Selected then
    CNT := CNT+1;
  Finally
    for L := 0 to CNT do
    ListView.Items[ListView.ItemIndex].Delete;
  End;
end;

Bekomme ich immer diese Fehlermeldung : Access violation ar adress 0046EC17 in module 'Project3.exe'.

Funkotinieren tut der Code aber komischer weise Optimal

Help pls

[edit=Luckie]Titel "Bekomme einen Fehler" verbessert. Mfg, Luckie[/edit]