在memo中如何能拦截到用户输入的中文字符？

Question

    各位朋友，我想达到下面的效果，想了好久都想不到也找不到好的方法。如果哪位高手会做，恳请赐教，不胜感激!
    我想在memo控件里，当光标后面的字符是空格时，使输入的字符替代后面的空格，如果是汉字字符则替代两个空格。我现在想到的算法是拦截用户输入的字符，然后检查光标后面是不是空格，如果是就替代。可是我始终找不到拦截到用户输入的汉字字符的方法!记得好像在vb里在KeyDown事件里通过Key参数可以得到整个汉字字符的编码，可是在Delphi里却不行，只能得到第一个字节的编码!
    各位高手，有知道怎么解决的吗？

Answer 1

给你做了个判断输入的是否是汉字的函数，接下来的事情，我觉得你应该好做多了
function isHZ(key:char):boolean;
begin
result:=false;
if ord(key)>=127 then
   result:=true;
end;