按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;