查看键盘ASC码的方法

网上看到查看键盘ASC码的方法：

新建一个窗体，设置Keypreview属性为True,然后在OnKeyDown中写代码: 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Showmessage('按键的ASC码是：'+);
end;

不过发现显示不全，如Tab、PrintScreen等显示不出，不知还有没有更好的办法。