在Delphi2010中获取汉字拼音首字母的方法