Saber elementos seleccionados de listbox con multiselect activado

[chux]

Pues eso, soy novato en delphi y no consigo saber que elementos hay seleccionados en un listbox con multiselect activado...
Consigo recorrerlo y mostrarlos todos, o bien con itemindex muestro el primero seleccionado....
Venga aver si me echais una mano
Saludetes!!

[roman]

Tienes que recorrelos todos y por cada índice probar:

if ListBox1.Selected[i] then

// Saludos

[dec]

Hola,

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   i: integer;
   total: integer;
 begin
   total := 0;
   for i := 0 to ListBox1.Count-1 do
   begin
     if ListBox1.Selected[i] then
       Inc(total);
   end;
   ShowMessage(IntToStr(total));
 end;

[chux]

Dios que velocidad, sois los mejores