Yo utilizo esta rutina es casi la misma que la tuya. En el
onKeyPress, pero antes tienes como dice Marcos que poner la propiedad KeyPreview del Formulario := True y chequear el TabOrder de cada uno de los dbEdit
Código Delphi
[-]
Begin
if key =#13 then
begin
SelectNext(ActiveControl,true,true);
End
End;
Espero que te sirva....