自定义消息，发送消息后，接受方无反应，急用(14分)

我作的一个消息发、接程序，自定义消息
Const
InterMsg=WM_User+100;
在发送方
调用函数SendMessage(HWND_BROADCAST,INTERMSG,HANDLE,0);
在接受方重载消息处理过程wndproc
procedure WndProc(var Message: TMessage); override;
procedure WndProc(var Message: TMessage);
begin
if Message.Msg = InterMSg then
label1.caption:='0';
end;

结果接受方无任何反应，跟踪显示，接受到的消息不是InterMSg
为何？只有这么多分了，不好意思