InforPower里的TwwDBRichEdit编辑时，选中中文时会出错!(200分)

看了http://www.delphibbs.com/delphibbs/dispq.asp?lid=705836
和http://www.delphibbs.com/delphibbs/dispq.asp?lid=1098267
里面的回答，但可能是功力不够，无法解决。
谁能给我一个改好的例子？
发到我的邮箱里面tanglu@ceiec.com.cn
解决就给分！分数大大的有啊！

提前

再次提前。
恳请各位高人指教。

我已经解决了。
使用的办法如下：
1、修改wwriched.pas文件
在TwwCustomRichEdit申明中加入：
function GetSelText: string;
然后在实现中加入：
function TwwCustomRichEdit.GetSelText: string;
var
Length: Integer;
begin
SetLength(Result, (GetSelLength + 1)*2);
Length := SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
SetLength(Result, Length);
end;
2、把IP3000安装目录下的packges和source目录拷贝出来
3、卸载IP3000，删除borland/delphi6/project/bpl下面IP3000的所有bpl文件
4、打开第二步拷贝出来的packges中的包，重新编译安装。
5、除了word2000vcl装不起外，其他都可以装上，并且解决了问题。
这个分我想给最早解决问题的pclover大侠，不知道在不在？
结束问题了。