Puoi usare un codice simile al seguente:
codice:
if ListBox1.ItemIndex <> -1 then
  MyVar := ListBox1.Items[ListBox1.ItemIndex];
Ciao!