Akt. gewähltes Element einer ListBox ermitteln

void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
    // vor dem Zugriff auf ein Listbox-Element erstmal testen, ob
    // auch wirklich was selektiert wurde (ItemIndex != -1)
    if (ListBox1->ItemIndex != -1) Label1->Caption = ListBox1->Items->Strings[ListBox1->ItemIndex];
}