上下箭头的事件

左右箭头的事件
在笔记本点击左右箭头不触发事件：
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #37) or (Key = #38)    then Showmessage('123');
end;


没有触发:Showmessage('123');

是什么原因?
[解决办法]
不要放到KeyPress事件中，放到KeyDown事件中

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = 37) or (Key = 38) or (Key = 123) or (Key = 39)  or (Key = 40)  then Showmessage('True')
  else ShowMessage(IntToStr(Key));
end;