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