Delete Multiple Selected Items in a TListBox Delphi Control

//make sure ListBox1.MultiSelect = true
var
ii : integer;
begin
with ListBox1 do
begin
for ii := -1 + Items.Count downto 0 do
if Selected[ii] then Items.Delete(ii) ;
end;
end;