这段代码处理范围比较广，对于双单字，较偏的字也都能处理,是目前比较流行且全面的在delphi中获取汉字的拼音首字母的代码.
1、以下代码段直接复制在代码里即可.
{$R *.dfm}
py: array[216..247] of string = (
{216}\'CJWGNSPGCGNESYPB\' + \'TYYZDXYKYGTDJNMJ\' + \'QMBSGZSCYJSYYZPG\' +
{216}\'KBZGYCYWYKGKLJSW\' + \'KPJQHYZWDDZLSGMR\' + \'YPYWWCCKZNKYDG\',
{217}\'TTNJJEYKKZYTCJNM\' + \'CYLQLYPYQFQRPZSL\' + \'WBTGKJFYXJWZLTBN\' +
{217}\'CXJJJJZXDTTSQZYC\' + \'DXXHGCKBPHFFSSYY\' + \'BGMXLPBYLLLHLX\',
{218}\'SPZMYJHSOJNGHDZQ\' + \'YKLGJHXGQZHXQGKE\' + \'ZZWYSCSCJXYEYXAD\' +
{218}\'ZPMDSSMZJZQJYZCD\' + \'JEWQJBDZBXGZNZCP\' + \'WHKXHQKMWFBPBY\',
{219}\'DTJZZKQHYLYGXFPT\' + \'YJYYZPSZLFCHMQSH\' + \'GMXXSXJJSDCSBBQB\' +
{219}\'EFSJYHXWGZKPYLQB\' + \'GLDLCCTNMAYDDKSS\' + \'NGYCSGXLYZAYBN\',
{220}\'PTSDKDYLHGYMYLCX\' + \'PYCJNDQJWXQXFYYF\' + \'JLEJBZRXCCQWQQSB\' +
{220}\'ZKYMGPLBMJRQCFLN\' + \'YMYQMSQYRBCJTHZT\' + \'QFRXQHXMJJCJLX\',
{221}\'QGJMSHZKBSWYEMYL\' + \'TXFSYDSGLYCJQXSJ\' + \'NQBSCTYHBFTDCYZD\' +
{221}\'JWYGHQFRXWCKQKXE\' + \'BPTLPXJZSRMEBWHJ\' + \'LBJSLYYSMDXLCL\',
{222}\'QKXLHXJRZJMFQHXH\' + \'WYWSBHTRXXGLHQHF\' + \'NMCYKLDYXZPWLGGS\' +
{222}\'MTCFPAJJZYLJTYAN\' + \'JGBJPLQGDZYQYAXB\' + \'KYSECJSZNSLYZH\',
{223}\'ZXLZCGHPXZHZNYTD\' + \'SBCJKDLZAYFMYDLE\' + \'BBGQYZKXGLDNDNYS\' +
{223}\'KJSHDLYXBCGHXYPK\' + \'DQMMZNGMMCLGWZSZ\' + \'XZJFZNMLZZTHCS\',
{224}\'YDBDLLSCDDNLKJYK\' + \'JSYCJLKOHQASDKNH\' + \'CSGANHDAASHTCPLC\' +
{224}\'PQYBSDMPJLPCJOQL\' + \'CDHJJYSPRCHNKNNL\' + \'HLYYQYHWZPTCZG\',
{225}\'WWMZFFJQQQQYXACL\' + \'BHKDJXDGMMYDJXZL\' + \'LSYGXGKJRYWZWYCL\' +
{225}\'ZMSSJZLDBYDCPCXY\' + \'HLXCHYZJQSQQAGMN\' + \'YXPFRKSSBJLYXY\',
{226}\'SYGLNSCMHCWWMNZJ\' + \'JLXXHCHSYD CTXRY\' + \'CYXBYHCSMXJSZNPW\' +
{226}\'GPXXTAYBGAJCXLYS\' + \'DCCWZOCWKCCSBNHC\' + \'PDYZNFCYYTYCKX\',
{227}\'KYBSQKKYTQQXFCWC\' + \'HCYKELZQBSQYJQCC\' + \'LMTHSYWHMKTLKJLY\' +
{227}\'CXWHEQQHTQHZPQSQ\' + \'SCFYMMDMGBWHWLGS\' + \'LLYSDLMLXPTHMJ\',
{228}\'HWLJZYHZJXHTXJLH\' + \'XRSWLWZJCBXMHZQX\' + \'SDZPMGFCSGLSXYMJ\' +
{228}\'SHXPJXWMYQKSMYPL\' + \'RTHBXFTPMHYXLCHL\' + \'HLZYLXGSSSSTCL\',
{229}\'SLDCLRPBHZHXYYFH\' + \'BBGDMYCNQQWLQHJJ\' + \'ZYWJZYEJJDHPBLQX\' +
{229}\'TQKWHLCHQXAGTLXL\' + \'JXMSLXHTZKZJECXJ\' + \'CJNMFBYCSFYWYB\',
{230}\'JZGNYSDZSQYRSLJP\' + \'CLPWXSDWEJBJCBCN\' + \'AYTWGMPABCLYQPCL\' +
{230}\'ZXSBNMSGGFNZJJBZ\' + \'SFZYNDXHPLQKZCZW\' + \'ALSBCCJXJYZHWK\',
{231}\'YPSGXFZFCDKHJGXD\' + \'LQFSGDSLQWZKXTMH\' + \'SBGZMJZRGLYJBPML\' +
{231}\'MSXLZJQQHZSJCZYD\' + \'JWBMJKLDDPMJEGXY\' + \'HYLXHLQYQHKYCW\',
{232}\'CJMYYXNATJHYCCXZ\' + \'PCQLBZWWYTWBQCML\' + \'PMYRJCCCXFPZNZZL\' +
{232}\'JPLXXYZTZLGDLDCK\' + \'LYRLZGQTGJHHGJLJ\' + \'AXFGFJZSLCFDQZ\',
{233}\'LCLGJDJCSNCLLJPJ\' + \'QDCCLCJXMYZFTSXG\' + \'CGSBRZXJQQCTZHGY\' +
{233}\'QTJQQLZXJYLYLBCY\' + \'AMCSTYLPDJBYREGK\' + \'JZYZHLYSZQLZNW\',
{234}\'CZCLLWJQJJJKDGJZ\' + \'OLBBZPPGLGHTGZXY\' + \'GHZMYCNQSYCYHBHG\' +
{234}\'XKAMTXYXNBSKYZZG\' + \'JZLQJDFCJXDYGJQJ\' + \'JPMGWGJJJPKQSB\',
{235}\'GBMMCJSSCLPQPDXC\' + \'DYYKYWCJDDYYGYWR\' + \'HJRTGZNYQLDKLJSZ\' +
{235}\'ZGZQZJGDYKSHPZMT\' + \'LCPWNJAFYZDJCNMW\' + \'ESCYGLBTZCGMSS\',
{236}\'LLYXQSXSBSJSBBGG\' + \'GHFJLYPMZJNLYYWD\' + \'QSHZXTYYWHMCYHYW\' +
{236}\'DBXBTLMSYYYFSXJC\' + \'SDXXLHJHF SXZQHF\' + \'ZMZCZTQCXZXRTT\',
{237}\'DJHNNYZQQMNQDMMG\' + \'LYDXMJGDHCDYZBFF\' + \'ALLZTDLTFXMXQZDN\' +
{237}\'GWQDBDCZJDXBZGSQ\' + \'QDDJCMBKZFFXMKDM\' + \'DSYYSZCMLJDSYN\',
{238}\'SPRSKMKMPCKLGDBQ\' + \'TFZSWTFGGLYPLLJZ\' + \'HGJJGYPZLTCSMCNB\' +
{238}\'TJBQFKTHBYZGKPBB\' + \'YMTDSSXTBNPDKLEY\' + \'CJNYCDYKZDDHQH\',
{239}\'SDZSCTARLLTKZLGE\' + \'CLLKJLQJAQNBDKKG\' + \'HPJTZQKSECSHALQF\' +
{239}\'MMGJNLYJBBTMLYZX\' + \'DCJPLDLPCQDHZYCB\' + \'ZSCZBZMSLJFLKR\',
{240}\'ZJSNFRGJHXPDHYJY\' + \'BZGDLJCSEZGXLBLH\' + \'YXTWMABCHECMWYJY\' +
{240}\'ZLLJJYHLGBDJLSLY\' + \'GKDZPZXJYYZLWCXS\' + \'ZFGWYYDLYHCLJS\',
{241}\'CMBJHBLYZLYCBLYD\' + \'PDQYSXQZBYTDKYYJ\' + \'YYCNRJMPDJGKLCLJ\' +
{241}\'BCTBJDDBBLBLCZQR\' + \'PPXJCGLZCSHLTOLJ\' + \'NMDDDLNGKAQHQH\',
{242}\'JHYKHEZNMSHRP QQ\' + \'JCHGMFPRXHJGDYCH\' + \'GHLYRZQLCYQJNZSQ\' +
{242}\'TKQJYMSZSWLCFQQQ\' + \'XYFGGYPTQWLMCRNF\' + \'KKFSYYLQBMQAMM\',
{243}\'MYXCTPSHCPTXXZZS\' + \'MPHPSHMCLMLDQFYQ\' + \'XSZYJDJJZZHQPDSZ\' +
{243}\'GLSTJBCKBXYQZJSG\' + \'PSXQZQZRQTBDKYXZ\' + \'KHHGFLBCSMDLDG\',
{244}\'DZDBLZYYCXNNCSYB\' + \'ZBFGLZZXSWMSCCMQ\' + \'NJQSBDQSJTXXMBLT\' +
{244}\'XZCLZSHZCXRQJGJY\' + \'LXZFJPHYXZQQYDFQ\' + \'JJLZZNZJCDGZYG\',
{245}\'CTXMZYSCTLKPHTXH\' + \'TLBJXJLXSCDQXCBB\' + \'TJFQZFSLTJBTKQBX\' +
{245}\'XJJLJCHCZDBZJDCZ\' + \'JDCPRNPQCJPFCZLC\' + \'LZXBDMXMPHJSGZ\',
{246}\'GSZZQLYLWTJPFSYA\' + \'SMCJBTZYYCWMYTCS\' + \'JJLQCQLWZMALBXYF\' +
{246}\'BPNLSFHTGJWEJJXX\' + \'GLLJSTGSHJQLZFKC\' + \'GNNDSZFDEQFHBS\',
{247}\'AQTGYLBXMMYGSZLD\' + \'YDQMJJRGBJTKGDHG\' + \'KBLQKBDMBYLXWCXY\' +
{247}\'TTYBKMRTJZXQJBHL\' + \'MHMJJZMQASLDCYXY\' + \'QDLQCAFYWYXQHZ\'
);
function ChnPy(Value: array of char): Char;
责任编辑：小草
