Программное открытие ComboBox II

procedure TForm1.ComboBox1Enter(Sender:TObject);
begin
SendMessage(ComboBox1.Handle,CB_SHOWDROPDOWN,Integer(True),0); end;

Поместите эту строку в обработчико события OnEnter ComboBox:

SendMessage(combobox1.Handle, CB_SHOWDROPDOWN, 1, 0);

Измените третий параметр (1) на 0, если вы хотите спрятать список. [001481]