[ruina]

mira a ver que tal asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var p:tpoint;
begin
    p:=ToolButton1.ClientToScreen(point(0,ToolButton1.Height));
    ToolButton1.DropdownMenu.Popup(p.X,p.Y);
end;