汉字转化成拼音首字母函数,完整代码,支持delphi2010xe5xe3xe2