delphi7环境正常编译运行,可获取多个汉字首字母,准确