Mehrere Listbox Einträge löschen

[Pfoto]

Hi!

ich würde es so machen:

Delphi-Quellcode:

var
  i: integer;
begin
  i:= 0;
  repeat
    If Listbox1.Selected[i] then
      Listbox1.Items.Delete(i) else
      inc(i);
  until (i = Listbox1.items.count);

Gruß
Pfoto