[ecfisa]

Y ya que estamos me acordé de otro modo de hacer lo mismo.

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key == VK_RETURN) {
    PeekMessage(0, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
    Perform(WM_NEXTDLGCTL, false, false);
  }
}

Saludos.