Delphi - Quitar Sonido

Hola Amigos

me gustaria saber que puedo hacer para quitar de mi programa los bips que se producen cuando se teclea una tecla no permitida por el campo o cuando se llega al limite de este.

Muchas Gracias

El problema viene porque el evento OnKeyDown del Edit comprueba el límite del texto, por ejemplo. Si llega a este punto, elimina el caracter a introducir y llama a Beep. He probado esta solución en el evento OnKeyPress del Edit, suponiendo un Edit de MaxLength de 5 y funciona. Debe ser perfeccionado para soportar, por ejemplo, el pulsado de Suprimir (lo he puesto para que se pueda borrar sólo)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key<>#8 then
if Length(Edit1.Text)=5 then
Key:=#0;
end;