[[Héctor Randolph]]

La propiedad ItemIndex es la que te indica el elemento seleccionado, si no hay un elemento seleccionado toma el valor de -1.

Te pongo un ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ListBox1.ItemIndex<>-1) then
      ShowMessage(ListBox1.Items[ListBox1.ItemIndex]);
end;

saludos