procedure TMainFrm.ToolButton6Click(Sender: TObject);
var
MemuPos: TPoint;
begin
MemuPos := TToolButton(Sender).ClientToScreen(Point(0, 0));
MemuPos.y := MemuPos.y + TToolButton(Sender).Height;
TToolButton(Sender).DropdownMenu.Popup(MemuPos.x, MemuPos.y);
end;
var
MemuPos: TPoint;
begin
MemuPos := TToolButton(Sender).ClientToScreen(Point(0, 0));
MemuPos.y := MemuPos.y + TToolButton(Sender).Height;
TToolButton(Sender).DropdownMenu.Popup(MemuPos.x, MemuPos.y);
end;