Delphi实现中文姓名拼音缩写转换