Prueba con este ejemplo:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.ItemIndex:=2;
ComboBox1.DroppedDown:=True;
ComboBox1.DroppedDown:=False;
end;
O solamente:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.ItemIndex:=2;
end;
Un Saludo.