Item de listbox seleccion con scroll

[aguml]

Otro problema es que antes ejecutaba codigo al hacer clic en el item del listbox pero ahora se autoselecciona solo y la idea es que ejecute ese mismo codigo al autoseleccionarse pero he probado con esto:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ...
    ListBoxCatArmaChris1->OnVerticalScroll=vertScroll;
    ...
}

void __fastcall TForm1::vertScroll(TObject *Sender)
{
    RellenarCombo(ComboBoxArmaChris1,ListBoxCatArmaChris1->ItemIndex);
    ComboBoxArmaChris1->Hint = ComboBoxArmaChris1->Items->Strings[ComboBoxArmaChris1->ItemIndex];
} 


Y ni siquiera entra en mi funcion del evento con lo que algo estaré haciendo mal.

[aguml]

Otro problema mas, al pulsar las teclas de flechas del teclado para cambiar de item tampoco puedo capturar ese evento con lo que no puedo ejecutar codigo para que haga lo mismo que quiero hacer cuando use el scroll.