Delphi - Código del popupmenu para meter en un boton creado

Tengo un problema que es que un botón que he encontrado por internet no tiene la propiedad de popup menu y la necesito, por lo que me gustaría saber cual es el código para así meterla yo manualmente.

Bueno, cuando se haga clic sobre el botón muestra el menu popup con el método PopUp de éste ultimo.

El problema es que ese botón no tiene el código de pop-up menu, por lo que no me puedo referir a el.
Yo lo que quiero es el codigo para insertar al botón que haga eso.