TEditを使って、文字列を入力するモノを作っています。
エンターキーを押したときのビープ音を消したいのですが上手くいきません。

OnKeyDownハンドラの中で以下のような処理を行っています。
if Key = VK_RETURN then
begin
　if ssCtrl in Shift then
　　//処理A
　else
　　//処理B
　Key := 0;
end;

Key := 0にすればビープ音が消えると思ったのですが、消えてくれません。
OnKeyPressハンドラで同じことをやるとビープ音は消えるのですが、
Ctrlキーの押下判定が出来ないのでOnKeyDownの方で処理を行えれば
よいのですが、音を消すにはどうしたらいいでしょうか？