如何消除onkeydown中的beep声

Question

if key=VR_RETURN then
  begin 
    key:=0
    ...
  end;
发现这样是不行的。请教怎么消除声音？onkeydown的声明是：
procedure OnKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
用key:=#0也是不行的，key是word迷惑了

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=Char(VK_Return) then
  begin
     edit2.Text:=Edit2.Text+'s';
     Key:=Char(0);
  end;
end;
//用KeyPress函数吧

Answer 2

就是在想为何onkeydown为何不可以消声