一个应该有难度的问题（折叠菜单）

在Windows XP和Office 2003中，菜单有折叠的效果。
就是如果下拉菜单有10项，使用过一段时间后，点下拉菜单，就只显示2、3个，然后下面显示一个箭头。
点箭头，就显示其他的7、8个菜单。
Windows XP的菜单就是只显示常用的那几个，不常用的都隐藏了，点箭头后，就全部显示了。这样的效果怎样用Delphi实现？？？实际上，我是想在ComboBox类似这样的控件来实现这个效果。
比如，下拉选择类别，类别有几项，而常用的只有十项八项的，其他的几十项很少用。
我想，点下拉时，只显示那十项八项的，如果这里没有，就点箭头，显示其他那几十项。