delphi 单击按钮触发combobox的下拉？

怎么做才能单击按钮，出现下拉列表？

在button的OnClick事件中设置：combobox.DroppedDown := True;