Delphi - Asignacion de menues emergentes a TButton

Que tal, tengo el siguiente problemita:
He diseñado un formulario en el que se agregan TButton en forma dinamica, hasta ahi todo barbaro, el problema me surge cuando le agrego, un menu emergente a cada uno, mi pregunta es la siguiente, hay alguna forma de crear solamente un unico menu y asignarselo a cada boton, intente hacer esto pero no encuetro la forma de que me reconozca a que boton hago referencia, cuando cliqueo en algun item del menu en cuestion.
La solucion que encontre es agregar un menu distinto, pero con los mismos item para boton.
Bueno, muchas gracias

Hay una propiedad, llamada Tag, que es únicamente un número para que podamos identificar a los componentes de manera específica. Por ejemplo, el Tag podría usarse así (Suponiendo un conjunto de botones que acceden al mismo procedimiento):

Case TButton(Sender).Tag of
1: ... //El button1 y lo que hagamos con él
2: ...//El Button2 y lo qyue hagamos
...
end;