TRichEdit 付值问题 ( 积分: 50 )

我写了一个继承与TRichEdit的编辑控件。其中向在向编辑（就是向TRichEdit.Lines属性赋值）的时候，对TRichEdit的文本内容作一定处理。我该怎么做啊。虽然在TCustomRichEdit中有一个procedure SetRichEditStrings(Value: TStrings);函数是在向属性Lines赋值时调用的函数，但是它是private的。我无法编辑阿。就是把它在子类中覆盖掉，FRichEditStrings: TStrings 也是私有的变量阿。我怎么能对其赋值呢？

自己提前。我刚才尝试了覆盖Lines属性的方法。但是在TRichEdit类中FRichEditStrings是被当作TRichEditStrings类来创建的。而TRichEditStrings类是在ComCtrls单元的实现部分声明并实现的。ComCtrls单元外无法引用。不知道该怎么处理啊。难道我要在外面把TRichEditStrings类全部重新写一边实现？