delphi编程获取汉字首字符,绝对可以用。