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

[Der.Kaktus]

das geht, habs probiert..

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,i1:integer;
SArray:Array[0..20] of byte;   //nur mal als Bsp. die 21 Bytes
begin
 i1:=0;
 for i:=0 to 20 do SArray[i]:=0; //loeschen
 for I := 0 to ListView1.Items.Count - 1 do
 begin
// Try mal weggelassen
  if ListView1.Items[I].Selected then
  begin
   SArray[i1]:=i;
   inc(i1);
  end;
 end;
 For i:=i1-1 downto 0  do ListView1.Items[SArray[i]].delete;
end;

gruss