Problema al cambiar de foco con intro.

[BECERRA]

Hola amigos, ¿sabría decirme alguien porque al ejecutar este código en el onkeypress de un form el speaker del pc emite un pitido?, es algo muy extraño.
Esta función cambia el foco cada vez que pulso la tecla intro siempre y cuando no este posicionado en un botón. Por lo tanto resulta bastante pesado escuchar el pitido en cada acción.


if (Fprincipal.ActiveMDIChild.ActiveControl.classname <> 'TBitbtn') and (Fprincipal.ActiveMDIChild.ActiveControl.classname <> 'TButton') and (Fprincipal.ActiveMDIChild.ActiveControl.classname <> 'SpeedButton') and (key=#13) then perform(WM_NEXTDLGCTL,0,0);