求在RichEidt中显示汉字的代码

Question

在所有汉字和字符都存储在一个char型（delphi里叫string吧）字符串里，把他们显示到RichEdit中。
　一个汉字占２个字节，字符也占２个，只不过２个相同，所以可以通过ASCII来判断汉字和字符。
　下面要做的就是显示了。RichEdit1.Text=RichEdit1.Text+str
　这种写法太慢了。有没有更快的？谢谢！

Answer 1

这样添加
RichEdit1.Lines.add('Hello');
这样访问
RichEdit1.Lines.String[0]; //或其它

Answer 2

ord
有多少个汉字：
s1:string;
s2:widestring;
s1:=???????
s2:=s1;
字符串s1中有length(s1)-length(s2)个汉字！！