消息问题，请大家帮忙!

发送方：
  postMessage(Application.Handle, WM_USER + 888, LongInt(self), 0);主界面接收：
  Application.OnMessage := OnAppMessage;（我用自己的方法处理系统消息）
procedure TMainForm.OnAppMessage(var Msg: TMsg; var handled: Boolean);
begin
  case Msg.message of
     .....................
   
    WM_USER + 888:   (如果在这里捕捉消息，可以捕捉到。)
      checkmsg;
  end;end;但是用下面的过程去捕捉WM_USER + 888消息的话，系统则不能捕捉到，这是为何，请问是不是因为我改写了 Application.OnMessage消息处理过程，系统不能 捕捉到了。
怎样才能实现，把OnAppMessage继承tobject 能行吗？？
请大家帮忙解决解决！
在此谢过。procedure CheckMyMsg(var msg:tmessage);message wm_user+888;
begin
checkmsg;
end;我试过OldAppMsg:TMessageEvent 保持原onmessage消息事件。
当procedure TMainForm.OnAppMessage(var Msg: TMsg; var handled: Boolean);
begin
  case Msg.message of
     .....................
   
    WM_USER + 888:   (如果在这里捕捉消息，可以捕捉到。)
      checkmsg;
  end;
 else 
OldAppMsg（msg,handled）;//系统报错
    end;