Перейти к следующему элементу управления при вводе - в переопределенном KeyUp

У меня есть собственный класс, расширяющий TEdit:

  TMyTextEdit = class (TEdit)
   private
     fFocusNextOnEnter: Boolean;
   public
    procedure KeyUp(var Key: Word; Shift :TShiftState); override;
   published
     property FocusNextOnExnter: Boolean read fFocusNextOnEnter
                                 write fFocusNextOnEnter default false;
  end;

В процедуре KeyUp я делаю:

procedure TMyTextEdit.KeyUp(var Key: Word; Shift: TShiftState);
begin
  inherited;

  if FocusNextOnExnter then
    if Key = VK_RETURN then 
      SelectNext(Self as TWinControl, True, false);
end;

Но он не перемещает фокус на следующий элемент управления. Я пытался

if Key = VK_RETURN then
      Key := VK_TAB;

, но тоже не работает. Что мне не хватает?