Delphi - sonido que no me gusta

bueno, el problema es el siguiente. tengo unos dbedit que cuando se preciona enter se va pasando el foco de uno a otro hasta que se termina y empieza de nuevo la misma operacion, pero yo pongo

if key = #13 then
dbedit.setfocus

me hace un sonido bastante molesto.
hay alguna forma de que eso no suene?

en el evento OnKeyDown

procedure TFrmDatoImporta.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
begin
key:=0;
Edit4.SetFocus;
end;
end;
//--------

esto te sirve para ingresar solo numeros.
procedure TFrmDatoImporta.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9',#8])=false then key:=#0;
end;

espero q te sirva.