La desesperaciónera tal que buscando en un foro EN RUSO :
http://www.sql.ru/forum/actualthread.aspx?tid=395220
encontré esto:
Código Delphi
[-]TPopupMenu(TMenuItem(TAction(Sender).ActionComponent).GetParentComponent).PopupComponent
Que parece ser el componente que realmente inicio la acción.
Despues de las pruebas de rigor FUNCIONA
Quedó así:
Código Delphi
[-]
procedure TfCitas.acEnviarAListaEsperaExecute(Sender: TObject);
begin
If TPopupMenu(TMenuItem(TAction(Sender).ActionComponent).GetParentComponent).PopupComponent is TSNMCCita Then
Begin
With TSNMCCita(TPopupMenu(TMenuItem(TAction(Sender).ActionComponent).GetParentComponent).PopupComponent) do
Lista.EnviarAListadeEspera(IdArea,IdPaciente,IdCita);
JvClock1Alarm(Sender);
End;
end;