ListBox Delete Item

[ecHo89]

Hallo, ganz komische Sache...

ganze einfache Listbox mit 3 Elemente und will alle die Selected sind rauslöschen.
Die Prozedur funktioniert auch, aber ich bekomme immer (auch außerhalb der IDE) die Errormeldung: "Listenindex überschreitet das Maximum 2" (EListError)

Delphi-Quellcode:

var i:integer;
begin
  for i:=1 to 3 do
  begin
   if Listbox1.Selected[i-1] = true then ListBox1.Items.Delete(i-1);
  end;
end;

Gruß