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,


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 :D