¿como hacer menu tipo web delphi popmenu toolbar?

[JXJ]

quiero hacer un menu desplegable.
al pasar el cursor sobre un toolbutton
de una toolbar.

algo asi como los menus web.
que muestran el submenu cuando pasas el cursor encima y se cierran cuando pierden el foco del cursor.
y el submenu siempre esta debajo de el boton

hay 2 eventos que he probado y no me funcionan .. por que hacen el popup . por encima del boton.
necesito algo asi. http://www.likno.com/

Código Delphi [-]
procedure TPrincipalF.ToolButton3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  ppmEmpresa.Popup(X, Y);
end;

procedure TPrincipalF.ToolButton3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ppmEmpresa.Popup(X, Y);
end;

gracias por su atencion.