フォームをエスケープキーで閉じるうまい方法がありますか。
次のようにやると閉じるけど、音が鳴ってしまうのでいまいちです。

void __fastcall TForm::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key == VK_ESCAPE)
{
Close();
}
}