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.