Delphi实现汉字转拼音全拼的方法

网上查询了很多汉字转拼音的方案，一种是用VBA实现的，另一种是只能转汉字首字母，都不是我需要的方案，因此结VBA的方式，用Delphi实现汉字转拼音全拼的方法，对excel文件中的中文转成拼音后，写入excel其他列中，并保存退出。