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

//判断字符是否是汉字 
//如果是汉字那么，返回 True，如果不是汉字，那么返回 False
function IsMBCSChar(const ch: Char): Boolean; 
begin
  Result := (ByteType(ch, 1) <> mbSingleByte); 
end; 

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