在Delphi中提取汉字首字母的实现