怎么判断已输入的字符数

如何判断已输入的字符数，
一个memo1，在输入的时候，在Label1中显示已输入的字符个数，要求一个中文汉字也是占一个字符数，而不是两个

[解决办法]
在memo1的onchange事件里判断
length(widestring(memo1.Text))就是字符数