PopupMenu просветите

[Yokka]

У меня есть ListBox в нем содержаться имена файлов. Как сделать чтобы при нажатии на имя файла правой кнопки мыши на него переводился курсор (строка выделялась синим цветом) ?

[Гром]

void __fastcall TForm1::ListBox1ContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{
ListBox1 -> ItemIndex = ListBox1 -> TopIndex + MousePos.y / ListBox1 -> ItemHeight;
}

[Yokka]

Спасибо большое))