ListBox

Wstawiam do ListBox w pierwszej linice C++ a w Drugiej Delphi
i niżej wstawiam Memo.Jak zrobić że klike na C++ w ListBox to w Memo widać Język C++ a gdy klikne na Delphi w ListBox to w Memo widać Język Delphi.

w OnClick listboxa:

if (ListBox->Items->Strings[ListBox->ItemIndex] == "Delphi")
Memo->Lines->Text = "Jezyk Delphi";
if (ListBox->Items->Strings[ListBox->ItemIndex] == "C++")
Memo->Lines->Text = "Jezyk C++";

albo

Memo->Lines->Text = "Jezyk " + ListBox->Items->Strings[ListBox->ItemIndex];

[dopisane]
Aha no i jeszcze na poczatku:
if (ListBox->Selected) then
//.. powyzszy kod
lub
if (ListBox->ItemIndex != -1)