一个delphi7编程问题..

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a+b;
edit3.text:=floattostr(c);
end;



procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if (key='B') then button1:=click();
end;

end.

想为button1设置快捷键 B 为什么却运行不了？麻烦给出正确的代码，谢谢~

答案：
Button1KeyPress的过程有两个问题：
1.B键应该是VK_B,不是'B'，所以(key='B')应该改成(key=VK_B)
2.button1:=click()应该没这种用法吧？反正我没看见过。应该写成button1.click或者Button1Click(Sender)
设置快捷键最简便的方法是:按钮的caption属性设为"&Yes",这样只需按"ALT+Y"即相当于按下按钮.