Listview Delete Problem

[Bernd29bln]

Hallo,

Code:

Delphi-Quellcode:

 for lst := 0 to Listview.Items.Count -1 do
  if (Listview.Items[lst].Selected) and (Listview.Items[lst].SubItems[3] = 'Nein') then
    begin
      ShowMessage('Dieser Eintrag kann nicht gelöscht werden.');
     end else
   if (Listview.Items[lst].Selected) and (Listview.Items[lst].SubItems[3] = 'Ja') then
     begin
      ListView.DeleteSelected;
    end;

Ich bekomme immer eine Fehlermeldung. Habe es auch schon so probiert: ListView.Items.Delete[lst]; geht aber auch nicht.

Weis jemand rat?


Gruß Bernd