Michael Dowert mentioned this to All:
 MD> Does anyone know how to delete all selected items in a Tlistbox ?
 MD> Please write the code so i understand !
procedure DeleteSelectedItems(List : TListBox);
var
    i : integer;
begin
    with List do
        begin
        Items.BeginUpdate;
        for i := Count - 1 downto 0 do
            if Selected(i) then
                Items.Delete(i);
        Items.EndUpdate;
        end;
end;
                                ...Gary
--- GoldED 2.41
---------------