Enter en spin

[tgsistemas]

Hola a todos,

Utilizo el siguiente código en el evento "OnKeyPress" para detectar la tecla Enter en los diferentes componentes de los formularios,

  if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;

funciona correctamente, pero el problema es que en un spin no hace nada al pulsar la tecla Enter.

Es problema del código, del componente o del evento ??

Muchas Gracias por la ayuda