请问一个问题？(50分)

各位：
在哪能找到键盘中按键的Ascii值？（每个按键）

表单上放两个tEdit,:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
edit1.text:='';
edit2.Text :=inttostr(ord(key))
end;

运行后，在EDit1里按任何键（包括组合键）其ASCII都会在Edit2里显示。