打字程序的正确字数的统计问题

Question

原文为RichEdit控件倒入的一个文本文件，打字输入到另一个RichEdit中，请问该怎么统计输入的总字数（汉字，包括标点，但不包括空格和回车，换行），正确字数。
最好给代码。谢谢！！！分不够再加。

Answer 1

function GetLen(s:string):integer;
var m,i:integer;
begin
m:=0;
for i:=1 to length(s) do
begin
  if (ord(s[i])=10) or(ord(s[i])=13)or(ord(s[i])=32) then inc(m);
end;
  result:=length(widestring(s))-m;
end;procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s:='物品的'+#13+#10+'  ';
 showmessage(inttostr(getlen(s)));
end;

Answer 2

文本是中文字符，怎么检查用户输入的文字的正确字数，还有怎么当用户输入的字数超过原文时输入的文字不做响应，即不在richedit中显示