Hola,
si con tu código dices que funciona pero que se queda encima del botón por el que has pasado, sumale a las coordenadas donde haces que se muestre el submenu el height del toolbar o del botón.
Código Delphi
[-]
ppmEmpresa.Popup(X, Y+toolbar.height);
Saludos.