Selektierte Einträge in ListBox löschen!

[valon]

Hallo !

Brauche mal wieder eure hilfe!

Ich möchte in einer ListBox mehrere selektierte Einträge löschen.
Ich habe es damit mal versucht,doch es funktioniert nicht richtig.

Delphi-Quellcode:

procedure TForm1.BitBtn8Click(Sender: TObject);
var i:Integer;
begin
  for i:=0 to ListBox2.Items.count-1 do
  if ListBox2.Selected[i]=True then
     ListBox2.Items.Delete(i);
end;

dann macht er aber probleme und bringt die Fehlermeldung: Der Index der liste überstreitet das maximum
Ich weiss wo der Fehler liegt, aber weiss nicht wie ich es anders machen soll.

habt ihr ne Idee?

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]