XE Delphi 判断字符为中文的方法