[[seoane]]

Usa la propiedad Selected:

Código Delphi [-]
var
  i: integer;
begin
  for i:= 0 to Listbox1.Items.Count - 1 do
    if Listbox1.Selected[i] then
    begin
      // Aqui lo que quieras
    end;
end;