Use SendMessage function with CB_SHOWDROPDOWN message, if you want to show list box of a combo box. procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0); end;