El beep es normal cuando se pulsa una tecla de estas en un edit. Para evitarlo, podes asignarle #0 a Key si se trata de una de estas teclas.
La rutina, podria quedar:
Código Delphi
[-]
if Key in [#13, #27] Then
Begin
Close;
Key := #0;
end;
Hasta luego.