const 
MSG_ID = 50000; 
procedure WMMSG(var MSG: TMessage); message MSG_ID; 出错--=》》Illegal message method index 非法的消息方法指针 
如果改为MSG_ID=40000;不出错了。是不是消息ID有限制????