Falla en Application.OnMessage

[JOMABRI]

Hola amigos,

tengo el siguiente problema:

Delphi no ejecuta el manejador para el evento Application.OnMessage.

El código que tengo es el siguente:

Código Delphi [-]
     // Declaración.
     procedure AnalizaMensajes(var Msg: TMSg; Var Handled:Boolean);
  
 procedure Tform1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AnalizaMensajes;
 end;
  
 procedure Tform1.AnalizaMensajes(var Msg: TMSg; Var Handled:Boolean);
 begin
     if Msg.wParam = VK_RETURN then
        Msg.wParam := VK_TAB;
 end;

Por favor ayudenme, esta código me funcionaba, y de un momento a otro dejo de funcionar.


Gracias

Mauricio Briñes.