En Delphi7 el ComboBox tiene una propiedad DroppedDown que no sólo sirve para saber si está desplegada la lista, sino también para desplegarla, así que puedes simplemente poner:
Código Delphi
[-]
ComboBox1.DroppedDown := not ComboBox1.DroppedDown;
// Saludos