一个派生于TObject 的类
    
TM = class(tobject) 
  procedure DefaultHandler(var Message);override;
end;
其中的VAR Message   是一种什么意思 , Message 充当的是一种类型,还是一个类型的实例;
请各位哥哥, 赐教!!!