Despliegue de la lista en el Tcombobox
 

Que tal amigos como están, espero que bien.

De nuevo tratando un problema con el control tcombobox lo explico a continuación.

El requerimiento es el sig:

Que el componente tcombobox al recibir el enfoque y posteriormente al presionar una tecla se expanda la lista y se pueda seleccionar el ítem presionando la tecla enter inmediatamente debe saltar al proximo control.

Para abrir la lista utilizo la propiedad:
tcombobox(sender).DroppedDown:=true

Pero al seleccionar el ítem de la lista y presionar la tecla enter se cierra la lista y no salta al próximo control seguidamente presiono la tecla enter de nuevo y la lista se abre y se cierra y esta ves si salta al próximo control.

Para que se desplace al presionar la tecla enter utilizo la función:
SelectNext(TWinControl(Sender), GetKeyState(VK_SHIFT) and $80 = 0, true)

luego pensando cual seria el problema abrí un nuevo proyecto y coloque en el form dos tcombobox y habilite en ellos la propiedad tcombobox(sender).DroppedDown:=true y sin agregar ninguna línea de código mas y ningún otro control ejecute la aplicación para comprobar el funcionamiento de esta propiedad y en efecto cada vez que se presiona la tecla enter estando el foco en el tcombobox la lista se abre y se cierra.

Como se podría implementar mi requerimiento y corregir esta falla.