按UP键退回上一个控件的问题

Question

代码procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then { 如果按下了回车键 }
   begin
   Key := #0; { 吃掉回车键 }
   Perform(WM_NEXTDLGCTL, 1, 0); { 跳回上一个控件 }
  end;
end;为何只能用“回车键”才行，改成其它键如UP（#28）就失效呢？

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_UP:   Perform(WM_NEXTDLGCTL,   0,   0);
    VK_DOWN: Perform(WM_NEXTDLGCTL,   0,   1);
  end;
end;

Answer 2

case Key of
VK_UP: Perform(WM_NEXTDLGCTL, 1, 0);
VK_DOWN: Perform(WM_NEXTDLGCTL, 0, 1);
end;