delphi 写的将汉字转化为拼音

delphi写将汉字转换成全拼或者首字母！呵呵！这个是在CSDN上看到牛人们写的改的呵呵！不好意思

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     117442  2010-10-14 19:11  汉字转换拼音的例子\汉字转换拼音的例子\IMCode（旧）.pas

     文件      54154  2011-01-05 19:52  汉字转换拼音的例子\汉字转换拼音的例子\IMCode.dcu

     文件      93201  2010-03-25 19:11  汉字转换拼音的例子\汉字转换拼音的例子\IMCode.pas

     文件       8507  2011-01-05 19:51  汉字转换拼音的例子\汉字转换拼音的例子\Project1.bdsproj

     文件         62  2011-01-05 19:51  汉字转换拼音的例子\汉字转换拼音的例子\Project1.bdsproj.local

     文件       1033  2011-01-05 20:00  汉字转换拼音的例子\汉字转换拼音的例子\Project1.cfg

     文件       2014  2003-02-19 15:36  汉字转换拼音的例子\汉字转换拼音的例子\Project1.dof

     文件        215  2003-02-19 14:38  汉字转换拼音的例子\汉字转换拼音的例子\Project1.dpr

     文件       4105  2010-03-25 19:11  汉字转换拼音的例子\汉字转换拼音的例子\Project1.dproj

     文件         62  2010-03-25 19:11  汉字转换拼音的例子\汉字转换拼音的例子\Project1.dproj.local

     文件     454144  2011-01-05 19:57  汉字转换拼音的例子\汉字转换拼音的例子\Project1.exe

     文件        251  2010-03-25 19:12  汉字转换拼音的例子\汉字转换拼音的例子\Project1.identcache

     文件        876  2011-01-05 19:51  汉字转换拼音的例子\汉字转换拼音的例子\Project1.res

     文件        126  2003-06-13 15:24  汉字转换拼音的例子\汉字转换拼音的例子\readme.txt

     文件       4438  2011-01-05 19:52  汉字转换拼音的例子\汉字转换拼音的例子\Unit1.dcu

     文件         51  2003-02-25 20:10  汉字转换拼音的例子\汉字转换拼音的例子\Unit1.ddp

     文件       1043  2011-01-05 19:52  汉字转换拼音的例子\汉字转换拼音的例子\Unit1.dfm

     文件        687  2011-01-05 19:51  汉字转换拼音的例子\汉字转换拼音的例子\Unit1.pas

     文件       1380  2003-02-25 20:10  汉字转换拼音的例子\汉字转换拼音的例子\__history\Unit1.dfm.~1~

     文件        708  2003-02-25 20:10  汉字转换拼音的例子\汉字转换拼音的例子\__history\Unit1.pas.~1~

    ...D.H.         0  2011-01-05 20:00  汉字转换拼音的例子\汉字转换拼音的例子\__history

     目录          0  2011-01-05 20:00  汉字转换拼音的例子\汉字转换拼音的例子

     目录          0  2011-01-05 19:49  汉字转换拼音的例子

----------- ---------  ---------- -----  ----

               744499                    23