怎样去掉TEdit中输入回车键时扬声器发出的“滴”的声音(50分)

我在一段程序，代码如下：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
begin
Button1.onClick(nil);
edit1.text:='';
end;
end;

当在Edit1里按下回车键时，扬声器就会发出一声“滴”，很讨厌，用什么方法能去掉吗？

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
Key:=#0;
end;

接受答案了.