Mover el Foco al Siguiente Control con ENTER

[onlytk]

Hola amigos, estoy tratando de hacer lo siguiente, al presionar ENTER sobre un control este deberia pasar el foco al siguiente, lo hice con el procedimiento: SelectNext(ActiveControl, True, True); el cual me funciona bien, pero........ , al presionar sobre un boton la tecla ENTER, este me muestra un mensaje con ShowMessage, al presionar ENTER en el mensje este se cierra pero en mi Formulario principal sigue atrapando el ENTER, y lo pasa al siguiente control, como puedo evitar atrapar este ultimo ENTER????