Foros Club Delphi - Atajos en Popup menus

Amigos tengo un Popup menu que está asociado con dos TListbox diferentes y la idea es que al pulsar un atajo de teclado se ejecute el método que tenga ese atajo pero quiero que funcione con el ListBox que tenga el foco. Ahora mismo no me funciona con ninguno de ellos y no se por qué. ¿Pueden ayudarme?

Esto tengo:

Código PHP:


		
			
void __fastcall TForm1::SendClipboardSelectedArchivosClick(TObject *Sender)

{
    if(ListBoxSeleccionados->Focused)
        CopiarSeleccion(ListBoxSeleccionados);
    else if(ListBoxCoincidencias->Focused)
        CopiarSeleccion(ListBoxCoincidencias);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SendClipboardAllArchivosClick(TObject *Sender)
{
    if(ListBoxSeleccionados->Focused)
        CopiarTodo(ListBoxSeleccionados);
    else if(ListBoxCoincidencias->Focused)
        CopiarTodo(ListBoxCoincidencias);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DelSelectedArchivosClick(TObject *Sender)
{
    if(ListBoxSeleccionados->Focused)
        LabelNArchivos->Caption = EliminarSeleccion(ListBoxSeleccionados);
    else if(ListBoxCoincidencias->Focused)
        LabelNCoincidencias->Caption = EliminarSeleccion(ListBoxCoincidencias);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CreateFileArchivosClick(TObject *Sender)
{
    if(ListBoxSeleccionados->Focused)
        ListBoxSeleccionados->Items->SaveToFile("Lista_principal.txt");
    else if(ListBoxCoincidencias->Focused)
        ListBoxCoincidencias->Items->SaveToFile("Lista_coincidencias.txt");
}

Les puse delante de cada Caption el & en el carácter que quiero que sea el atajo pero no funcionan los atajos.