[dec]

Hola,

Código Delphi [-]
  if (ListBox1.ItemIndex <> -1) then
  begin
    // Hay algún elemento seleccionado
  end;