Selektierte Einträge in ListBox löschen!

[toms]

Delphi-Quellcode:

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