[Savant]

Vovchick1
Обрабатываешь событие OnClick листбокса и там пишешь что-то вроде этого

Код:

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
  Form2->Caption = ListBox1->Items->Strings[ListBox1->ItemIndex];
}

могу быть неточным ввиду отсутствия BCB