编写组件TComponent published $M+ 问题

报错如下：

PUBLISHED caused RTTI ($M+) to be added to type

修改成下面这样之后：

解决问题 方法：

来自：http://www.cnblogs.com/cxp2009/archive/2011/11/28/2266186.html

新的published和$M+对比
新的编译器警告“W1055 PUBLISHED caused RTTI ($M+) to be added to type '%s'”非常有趣。它解决了我们之前讨论过的一个问题。在以前的编译器版本中，如果你编写这样的代码：
type
TMyClass = class
private
    FName: string;
published
    property Name: string read FName write FName;
end;
published 属性不会产生RTTI ，它在后台被默认当作public属性来对待。这主要是因为TmyClass不是从一个使用了$M+编译指示字的类继承下来（比如 TPersistent），它自己内部也没有使用$M+。现在，当你在Delphi2007里编译相同的代码时你会得到这样的警告：
[DCC Warning] ThSort.pas(): W1055 PUBLISHED caused RTTI ($M+) to be added to type 'TMyClass'
这说明，尽管$M+被漏掉了，但是编译器仍然会将它作为标准published属性来处理，并为它产生RTTI。在类声明前面添加一个$M+指示字，就不会再有这个警告了。如果你只是想使用一个Public属性，那么就把published改成public好了。

在TPersistent的声明中多了M编译开关，当{$M +} 与{$TYPEINFO ON} 作用是一样的， 而{$M -} 与{$TYPEINFO OFF}
相同。当一个类在{$M +} 和{$M -}间声明时，程序编译器将为类生成与RTTI(Runtime Type Information)相关的代码来完成
类的published的属性，方法和事件的存储工作。并且该类子类的published属性，方法和事件也具有存取特性。如果一个类
或祖先类都没有在{$M +} 和{$M -}间声明时，则该类不能有published的实行，事件和方法。