Tecla que llamó al PopupMenu

[[gluglu]]

Hola a tod@s !

Hace tiempo que no aparezco por aquí ... mis disculpas a todos los que me han echado de menos !

Cuando asigno un PopupMenu a un elemento (por ejemplo un Grid), puedo asignar ShortCuts a cada elemento del PopupMenu. Si asigno a uno de los elementos la tecla 'Del/Supr', al pulsar la tecla Suprimir en el Grid, se ejecuta el evento OnPopup del PopupMenu.

Quiero saber qué tecla ha provocado el evento OnPopup. Para saber si se ha pulsado Supr o si el usuario ha hecho Click Derecho.

Al parecer en el evento OnPopup, en ese momento del OnPopup, no está disponible el (Sender as TMenuItem).Name, por lo que no logro averiguar qué tecla (porque hay varias teclas asociadas a los diferentes ShortCuts) ha provocado la llamada.

He hecho esto :

Código Delphi [-]
procedure TForm.PopupActionBar1Popup(Sender: TObject);
begin

  if not (Sender is TMenuItem) then
    // La llamada fue efectuada con click derecho
  else if (Sender as TMenuItem).Name = 'Nombre del MenuItem asociado a la tecla Supr' then
    .....

Agradecer como siempre vuestra inestimable ayuda !

Saludos