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

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

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）就失效呢？

[解决办法]
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;