警告音？を消す方法は？

---

Editに入力された内容を、キーボードのエンターを押した時に空にする場合
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN) then Edit1.Clear;
end;
とすると、エンターを押す度にｗｉｎｄｏｗｓの確認音？というか警告音が
毎回鳴ります。煩わしいので警告音を無くしたいんですけど何かいい方法はないですか？

編集    削除

---

Key := #0;を追加したらどうでしょう。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。