slet i listview

Jeg vil gerne slette en række valgte items, i en ListView. ListView\'et er sat med MultiSelect := True;

nu har jeg en knap hvorpå følgende kode udføres ved et klik:

var
  I: Integer;
begin
  for I := 1 to listview.items.count do begin
    if listview.items[i-1].selected then
      listview.items.delete(i-1)
  end;
end;

og der er faktisk flere møder at gøre det på... men!

Jeg får nogle ustyrligt grimme fejl meddelser i hovedet, når koden udføres! EAccessViolation!!!

(jeg har prøvet med BreakPoints, men de melder ikke fejl...!)

Hvad f***** er der galt??