procedure
TForm1
.
Button1Click(Sender: TObject);
var
i:
integer
;
begin
i:=Listbox1
.
count-
1
;
repeat
if
Listbox1
.
Selected[i]
then
Listbox1
.
Items
.
delete(i);
i:=i-
1
;
until
i<=
0
end
;