delphi判断一个字符是否为汉字的最佳方法

//判断字符是否是汉字 

//如果是汉字那么，返回 True，如果不是汉字，那么返回 False
function IsMBCSChar(const ch: Char): Boolean; 
begin

  Result := (ByteType(ch, 1) <> mbSingleByte); 
end; 

 来源：http://www.delphitop.com/html/zifuchuan/322.html