delphi将汉字转为首字母

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StrUtils, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}
Function padl (Int: Integer) : string;
Var
  ss : string;
Begin
  ss := Inttostr (Int);
  While LENGTH (ss) < 3 Do ss := '0' + ss;
  result := ss
End;

Function topy (hzstr: string) : string;
Var
  PYSTR,S,S1,PYSTR1: string;
  n,j,i,STRLEN : Integer;
Begin
  S := DupeString (' ', 1000);
  S1 := DupeString (' ', 809);
  PYSTR :=
       S + 'KSXMMCSDQLYBJJJGCZHDFIAWJHPHCYWGJHHDSKKKTMOCXYPSNGSECCLGGLLYJMS XSSGEQEDYXJYYCLDMJRWBBFTEXCHGBCCSRFCJWFFCWDZPXDDWYLFAJPDFNCYCQXXZXNNXXZQBPYSCZGMZBQBSCYCBXQSBHGXEFMBHHGQCXSTGLYGYMXALELCCXZRCSD'
    + S1 + 'TNJJCCZCLJDTSTBNXTYXSGKWYFLHJQSPXFXXDCZLSHXJBCFYBYXCCZBJYCLWLCZ GTSMDCXPQGJSJFZZLSLHDZBWJNCJYSQYCJRCCWYBTYFDWECSKDCBXHYZCYYXZCFBZMJYXXCDCZTBZJESSSXYRNYGMDTHJXSJJCCSBXRYTSYFBJZGCLCCZBSCYZQSCJH'
    + S1 + 'ZQYDSLBBJLLMQXLYDZSJJTCBLCGQCCEJBHCJCJFXJELBGXXMYJJQFZASYJNCYDK JCJSZCBATCCLAJQMWNQNCLLKBDBZZSYHJCLTWLCCRSHLLZNCYLNZXDDCCEEJYSSQGHSDBGHWNLSHTPJYMDYMCJGJMZGXYHYMSMJKLFXMTGHPFMQJSMTGJQDGYALCMZC'
    + S1 + 'SDJLXDFFJCZFMZFFKGPKHRCJQCJDWJLFQDMLZBJJSCGCKDEJCJDLZYCKCCCLFCQ CZGBCLDJJYHDDWGSJDACCCTJLPSKGHZZLJLGCGJJTJJJZCZMLZYJKLZYZMLJKGWXMKJLKJGMCLYKJQLBCKMDXMYXWSLLPSJJCQXYJFJDJDMXXLLCRQJJBMBGGYPJTGE'
    + S1 + 'GDJGNJYJKHQFQCKHYGHDGLLSDJJXAYGXNCSXWWXCCLGXXJAQSCSJKJEXSWZAYDZ LAQYSMTSTZFCYLDJAGYLCLLYYYGLQQKLDHCCCADSGBRLLJSJWRCGQCDHMMSJCYOHXCQGBEHWNCDHGJLGMQWJYCSTWASJPMMRDSZCCYCPCGCHDKGTPBFYHHDWZBTXHQE'
    + S1 + 'EDRSXKGTAXGLTHYDNXPHYLDMZHXLBLBMLSFHSYGGBHYJTDWLQCZEDQDQMGTKLLS ZWJQEQAJDYTLXANZDECQTWWDGQQDWCBCHEQZLXQGZGLNDJCGTADYZZCWYZYMHYHHJCWCXHDNLYSCJYCBCYWYPBGQGTYHCSYGXMCHRGJBWQZLWJSCSGNQBALSZMTJCDG'
    + S1 + 'TCAXLBHHGOXZCPDMHGTGSJCHMRCCJHXHFQCCDXEZBCHCCCDYKXQHLSHYXNSYYDD DNHXCYAYGYFDHDDXPYZNDHTHHYDPCJJCXMTLHBYNYHMHZLLHNMYLLLMDCPPXMXDKYCYDLTACHGZNACLCCLYLCSHZJEZLNRLHYNTKYJPYCHEGTTGQRGTGYHHLGCWYJKP'
    + S1 + 'YYYTTTCLHYLLYTTPLKJYQQZDQXSNMJZXYQFKTFBJDJJCJBTJZGTJYFLQGXBLZFH ZADPMJHLCCYHDZFGYDGCYXSBHDKDHAXXBFBYYAXCQBDJYJJDLJJZLHBJYDEJSQWJLCKCDTCCBKDSZDQJBKKNJGYEGLFYKASNTCHBLGZBYMJNAGZYHEYBCMCTPFZJJHG'
    + S1 + 'CJPLJHDWXXJKYYKSSMWCDQZLPBZDCWZXZAGYKWXLHLCPBCLLOJMMTSLBCDZKDCZ JGQJDCYTZQWZQCSBPKDFQDCDSDDTDMFHTDYZJAQAKTPDJYBDLJHDRQXLXAYDRJLKLYTWHLLRLLCXYLBWSZYMZZHKHXKSMDSYGJFZBSQLCXXNJWMCQOGQMMCZGGBTTBH'
    + S1 + 'YJBEDPJLDYHKCBHFDXBAWHWAJLDYJSFHBLCDQJNCXFJHDFJHWZPHZYFCJZYNXFF WDBZZNYTXYEMBSEHXFZMBFLZRPYMCJRDJGXHJGJJNZZXHGJHYMLPEYYSJGQSHDSCXMFMKCCTXNYBNZHZPTXWYWAYYSLJSQXZDLAELMCBJCLXSQHFWNTFFTNQJJJDXHG'
    + S1 + 'LYCCFLAHYYJLDXHHDYNCJTYWDRMDNQHWQCMFJDPZHMAYXJWZQSXDLMRSPWWCHJB XTGCYYRRLMPAMCQZYJRMXSNTBLNBPYKXMYKYNGJTCHLZHHANMPGWJDZMXXMLLHGDZXYHXKRYCJMFFJYHJFSSQLQXNDYCANNMDCJCYPRNEYTYCYMBSXNDLYLYLJNLQYS'
    + S1 + 'HHMLLYCLJMSSTYNSMCQYNZLHBNNYLRKJRYYJZZHSYTSCJGXZDPHMKCZYQHZJNBH QSNJNTYBKNJQHSNPWXKHJYYBQCBFLDPZBKJSXSDDJEESCMLXXKWLMWWWYDKZGGTGGXBJTDSZXNXUMLPTFCLCXJJLJSXJWXLEDHHRWASCYYBYAWJECWQQJZZYJGXPLTJ'
    + S1 + 'FTPAKQPTLCPCBTXBHBLEFDLEEGQYMSAWHMLJDWYGLYJEXBQFNLYXRDSCTGGXYWL KXQCTLHJLMKKCGYBLLLDZYDHZWBJCJDYZZHYDFQYTYZDEZKLYMHJHTMYZLJNYWZCSKQQTDXWCDRJALWKBDQYNCSRSZJJKCDCDTLCCACQQCZDDXYPLXCBQJYLZLLJDZJ'
    + S1 + 'GYJYJSYXNYYYNXJJKGDAZWRDLJYYYRJLGLLHXJCYKYNQCCLDDNYYYKYHHJCLKPP QZZYJSQPFZDNFPZHDDMBMYYPQJRSSQZSQDGPZJWDQJDHZXWKBPDGPTMJTHZQBGCMBJCZHBBZMQCFMBCMCJXLJBGJTZGMQDYBJZYCTYZTZXTGKMYBBCLCSSQYMSCXFJE'
    + S1 + 'GLSSZBQJJLYDLYCTSQMCWFGKKBQLLLJYXTYLTSDPHNHFJNZYESESDHWDJBSJTFD CZYJSXJDZJJPBSDJGFBKJBXDGJHMGWJJLHHYYYYYWYYCDYMCBTJZWDLFWXWCZJCZCUJZCZLXJJSJBFWBXZBCDCBCCYHMLRBJLRDGRGQSLFYMWWJXJWCSQCTDQHXKXHJ'
    + S1 + 'YBMPJBNTGCCDDYFXBYXCBHXBSXTYMKSXLGKMZXTDHGQJSHQHCYXGLCSQYPDHXMY JBYSTJZLHQTBQXMYHCWLLCYLNEWCDCMLGGQKTLXKGNDGZWJJLXHJDTNCHXERZJYDNYDCQCBHZSBXWGWBXHMYHDYCMKKAQYNZSYQGYSQYSHJGJCNXKZYCXSBKXHYYLCT'
    + S1 + 'YCTWMGCPMGCCCCCMZTASGQZJLOSJYLSTMQSQCZLJQQYPLCYCZTCQQPBQJCLPKHC XYXXCTDDSJCJFFLLXMLWCJCXTSPYXNDTJSJWHQQJCKYYLSJHAYKXCYYDMAMDJMLMCZNCYBZKKYFLMCHCLHXRCJJGSLNMTJGGYGCDDCJZKZCGJYYHZHHQHHESTMDJYYY'
    + S1 + 'QCFRZZDWKGSCCGWDRCQJYAXQKDYKBGWGYQDZYWNPFBAZYBZNBTZZYHNSCPJMQCJ ZPNQCBDJKQQHNGCCXCHBDGDDNZGJDNLZLDJLJYXYSBGTCSKMNJBJSLJCFJJCCFZSYJWBZYZLSSBWWQSMMBDLJYSCTBRCWQCSLQGDHQSQLYZLGNHSDCBTCKPJMGMSPNJ'
    + S1 + 'KJJYNHCWCNSSZXHBYHYZJKJDLLCJTHGCXJJCBYWDWZGGQRHCSSNBEYDZNLQXJME CSDJBLTHNWHWCSZENQZWNKRSCSJCCGFDCSLCCGLLZGCZCTHNJGYAZCMCKCMTCCKBJYGQJBLDXRGQYXCNHGDNLCHJJCDCBCJSBFZTBQDHJTJWJYNLZYBCJDSJJKDXJAJ'
    + S1 + 'YEMMJTCLJYNYYNHJBNGZJGMJXLTBSLLRTYLCLCNXJLLHYLLQQQLJYMCYCXNLMMC CLNLDWDJLLGGJXKYGBPDKFMHCCGXJCZDYBXDNDDYKJJTXDYXMAADZSLOXYJSJZDLBLXXXQQJZUBYLWSJJYJTDYQQZZZZJLZCDZCHPLMQBLFFJZYSJEZFPFZKSYJJHXT'
    + S1 + 'TDXCYSMMTCWBBJSHFGXFQHYZFSJYBXPZLHMBXHZSFDODABALKTSHXKKJJZTHGXH JXKZXSZZHHWTZZZSNXDZYAWLCWXFGYYHXMYYDWQMNJYCYSPJKGWCQHYLJMZXHMCNZHHXCLTJPLXYJHDYYLTTXFSZHYSXSJBJYAYRMLCKDUYHLRLLLSTYZYYHSCSZCXH'
    + S1 + 'YQFPBLFUNTLJMHTQYZWCLLLPSTRBDDLGJBCCRQWWXFZETDMCYGGTJSWJMSYBDQC DHXCCSWJJMBAFYFNHYDXYEZYZSDLSNXCXGBMXYYSNBDCLHBFZDCYFSSSSNYDZDGBAFBDBCSZBFGCYJLMLRZSYQQZYXZLCKBRBRBZCYCJZEEYFGZLYYSFRTKQSXDCMZU'
    + S1 + 'YJLZXSCBTKJBBRXLLFQWJGSQYLPZDJCZABDHZRBJHWNJTJXLHCFSQDQYJHZCWJL BXFTZLLRLQBLCQQCCDFBBHCZLYYGGDGWCFCCQYYYJYRQZFLSZFCQNWLHJCJJCCKEBZZBPDCCMHJGXDGDZQMFGPSYSDFHWJZHYPYYJYHWPBYGXRYLYBHKJKSFTJMMHHT'
    + S1 + 'YYCXYZPDJYCYWMDJJRHLQXSTWSCPJYCBNMGJTYSYZMSJYJHGQMYRSZWTRTZSSKX GQGSPTGCDNJGCLMCGZTQYDJZDLSDGLHYQGGGQHSCPCJHHGNYGKGGMDCLLCCCXQSTGZSLLLMLCSKBDJZZDLMYTPZSQJCJYXEXYZCPSHKZSXCDFMWNLLJJRFJLYSDCCMJ'
    + S1 + 'JDHJNDNRCCFQRHQGLLGXSCSJDJJCDQJLNYHSZXCGJZYPFHDJSBCCZGJJJSJQDYB SSLYCTMQTBHJQMNYGJYNQYQMYGCJKPDCGMYZGQLLSLLCCMHOLZGDYLFZSLJCQZLYLZCJESGNYLLJXGJQLYJYYYRNBCLJSSWCGQCJYLLCLDJELLZLLBNYLGHHXCCQAYJ'
    + S1 + 'KXHKLKSACCQDKKCGYYXYWTJOHTHXFXCCUHCYEYCHBBJQCSCSZSSLZYLGEZMMYSX JQQSJYBYCHDZYWCTJSYDJKCDDJLBDJJZKYSHQXXHQJKHDYXGMAJPCUUPLJSMTXERXJQDUPJDBSMSSTDTSDMLTRZSZMLDJQRNBSQXQYDYYCBDSLMFGBZMDQCHFDTMQCQ'
    + S1 + 'WWTJJZQJJRJHFBCZFJHNXXYWDYHHNMFCPBZPZZLZFHZDLLCFTSKJGDJYHBZKAGH PCCSCSJSSJFJGDYPSHZCWHCSEXFQZYWKUATMLYMQPXXSKJJPXZGMHQYJSPCJLQWGMDBDHYCLHLGLCFYTLJCJNCPJLKPHJNTXTETLSSLSDYHXSCZKWTDWJSLHTJDJGGH'
    + S1 + 'DPHCQFCLJLZPTXNLMCLGQYNBHYLQCZYBBYMRFYHJDSQPXYRHJNQTFGDWECHYGMM YYHSMZGNGCELQQMTCWCHBXJJFYYSJZTYBHSTSYJDNJQSLHYNBYQHLCDCHZMYLFLWXYPJGSYLYMZCTDWGSZSLMMZWWQZSAYYSSSAPCWCMGHHQDZXJGSJHYGLCXYXHBBC'
    + S1 + 'JKLSMALHYCFYGMQYJYCXJLLJGCZGQJCCTOTYXMTSHLWCGBQKPZCXHCYCLCTJCYH XSGCKXZPJJBDHJWPJGSQXXSDMRSZCYZWSXKYTSHBCSPLWSSCJHALCHHYLHFGHXJSXALNYLMDHDXYCXLMCYHCLDYHZMDYSPJTQZNGJFSJHCTSDSZLMSSMNYYMJQJCWCY'
    + S1 + 'YDCHJJJAWBGQYBKFCMJDLCLLYYLSZJDWHXPCBCMLJSCGBHXLQRLCXYSDHXZLLDF HLSLYMJLJYLYJCDNJLFSYJFNLLCQYQFJYYLCLYLMSHDJCYHZLLNWLQXYGYYGXXHHZYXCZQZBNWPYPKPKFMLGXGGBDXZZKZFBXXLCFTYTQHHZJXHQHXXXYWZYSWDXZKX'
    + S1 + 'HZPAGCHCULFJCPJZTHLSXCRHXSHHKJXXZJDCJULYJLKHJXCMHCFACFPQRXQXYJY GPGWSCSUNGWCHKZXHFLXJBYZHTQXNNCYJJMWYJQRHFQSYLJSGWNSLGTCEBHXXWYHHXYNSQYMLJWGYQBBCAJLBCYTJZHYZWLHORJKCZJXXYXCHCYQYXQJDDSJBSYLDSF'
    + S1 + 'XLMDYJMJUCYXLLCXQCLHKLWYXZHDNBRHXJCDSHLBRLMRLLAXHLLLLJLXXXLYCRY LCCGJCMTLKLLYZZPCWHJYZECKZDQYQPCJCYZBBBCYDCNJTRMFGYGBSCGMDQQZMKQLPGTBQCJFKJCXBLJMSWLDTQXLDLPPBSCWRCBJCZGGBHYYFZKZMPJCSTLPNYYXDB'
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + '                                                                                                                                                                                               '
    + S1 + 'KXHHZJXSSTDMSXBZYSHJPFXBQBYLJQKYZZZWLCZFFWYCTBGJBYYSBMSMYDYSHQY ZCGMJMCAGCBBBHBLXTXQXSDJGJDHHXXNB                                                                                              '
    + S1 + 'HNMLNGSLTSMRNEXQJMXLSQGLBHDCGYQYCHWFJYMBYJMJJDPQYAPFXCGJSCRSSTJ LBZJJJLGXZYXYXSQKXBXXGCXPLDYWECDW                                                                                              '
    + S1 + 'WCJMBTXCHQYXXFXLLJSFWDBZCMYLMSWTCBCECBLGDBQZQFJDJHYMCXTXDRMJWRH XCJZCLQDYHLSRSYWWZJYMTLLLTCCJZBSC                                                                                              '
    + S1 + 'KZCYJJSQALMYHWWDXZXQDLLJSGJFJLJHJAZDJGTHHSSTCYJFBSZLXJXRWGLDLZR LZQTGSLLLLLYMXQGDZHBBHLSHQBPFDFMW                                                                                              '
    + S1 + 'HYBJCCLDMZPBZLCYQXLDOCLWDWYYTHCQSCCRSSLFGFPDQMBJSLMTFGJBTMTJWDN MMCTGBDCLFYHSYMJYLDHDZJCCTLCLDLJC                                                                                              '
    + S1 + 'PDDJDSDNBGZXXCJQXCBZXZBZFJSNCTJWHSCMJXTMXSPDSYBZGMLJDACBMDKYCSZ CYFDCTGWHKYJXGYCHNCZSCYZSSDLLQFLQ                                                                                              '
    + S1 + 'LLXFDYHXGGNYWYLLSDBBBJCYJZMLHLJXYYYTDLLLBUBFBQBZMBCLMJPGEHBCQAP HHHZCHXYHJAXHBPHJGPQQZGJJZCUDDQYBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB'
    + S1 + 'ZHHBWYFFQDLZLJXJPALXCDAGLGMQYMXPFMMSHPFMXSYZASHDZKJSMMZZSCNZCBM LTDDNMSZYMZMMQHHCCJEMXXKSTGWLSQLZBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB'
    + S1 + 'LLSJPHLDZYHMXXHGZCJMHXTXFWGMWJDCHMFZZYDKMSCLCMGHSXPSLCJYXMGJYAH JZMCSCXYHMMPMLGXMHLMLGMLTKZQJSZJSBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
    + S1 + 'HYZJZYBDDZWDKGDJLFMEKZJBEZSWJMJYKTEMZNPLBLBPYKKQZGEQLGAKXPLHQWQ CKKCLHYXXBLTCCYSKGCHLCNSZKYDKCQCQCCCCCCACCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
    + S1 + 'LJBMJHQLYWQLGRYDTYKWSADXDDNTQDFQQMGSELSTGPKTQQLAYDLPYTCQAPLLKCC YLPQQCZCLJSLZJXDDBSADLJXZQJYZAHZLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCDDDDDDADDDDDDDDDD'
    + S1 + 'JCYHDYPPYPEAKJYRPCBYMXKLLZLLFQPYLLLMSGLCYRYTMXYCBDCUYSYZTFMSMCL YWZGXZGGLJSGKDTGGZLLDZBCHYYZHZYWXDDDDCDCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'
    + S1 + 'SZYMSDBZYJGTSMTFXQYJSCDGSLNMDLYSZLRXTRZCYXNQFHYZJZYKBPNLYPBLNZZ JHTSHGYZZRDZNBGXSKGJTSYLLGZZBJZKLDCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDCDDDDDDDCCDDDDDDDDDEEEEEEEEEEEEEEEEEEEEE'
    + S1 + 'PBSYLUYQBJFBNJCZXCDJJYXZGGRSRJKCMTJJSJYWQKYHQJRPJBTZLSNSHRNYPJT WBHKLBSJLCWYSJYLYBBWKJDWGCYXCKDZXEFFFFFFFFFFBFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFBFFFFBFFFFFFBFFFFBFFFFFFFFFFFFFBFFFFFFBFBFFFFB'
    + S1 + 'SGZWWYQQYTCTDJLXWKCKKCCCLZCQQDZLQCSFQCHQHSFMKZLLBBSHJDYSJQPLZCD CWJKJJPCMDWJSQYRYHCBYDSDZNGQMBCBLFFFFFFFFFFFFFFFFFFFBFFFFFFFFBFFFGGGGGGGGAGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG'
    + S1 + 'NFFGFSMSQMLGQCYYBKJSRJHZLDCFTLLJGJHDXZCSZZTCGGKXOXBLBBBGCDYJDCZ SZLLJFZGQJCCZBXBSXPSHSCCLWDQJJXMFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGAGGGGGGGGGGGGGGGGGGGAGGGGGGH'
    + S1 + 'CFZHQQMQGSXHTYCNZNQXGPDHCSZCLJBHBDCYCCPBYTZSGYHCKPZJJCNSCDSLLXB MSDLDFJMKDJSLXLSZQPQPGJLLYDSKGQLSGHHHHHHHHHHHHHHHHHHGHDHHGHBHHHHHHHHHHGAHHGGHHHGAHAHHHHHHHHGHHHHHGHHHHHGHHHHGHHHHHHHHHHHHHHHHHH'
    + S1 + 'LKYYHJTTMCYQTZZBSZQZTLLJTYYLLQLLQYZJLBDZLSLYYZXFSZSNHNCZQZBBWCJ RBCYZMTHGJMZCSHTCLZBLEQHXFLYLJQBZHHGHHHHHHHHGHGHHHHFHHHHHFHHHHHHHHHHHHHHHHHHHHHHGHHHHHHHHHHHHHHHHHHHHHGHHHHGGHGHHHHHHHHJJJJJJJJ'
    + S1 + 'GHSTBMZJLXFNBGXJZTSFJMSSNCLKBHSJHTNLZDNDLSJGZJYJCZXDGOGWRWQNZTN FJSCBZMHZJFYRDJBCJZBFZQCHZXFXSBSQJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJGJJJJJGJGJJJJJJJJJJJJJJJJGJCJJJJJJJJJJJJJJJJJJJ'
    + S1 + 'LZCGYFTJDCSZXQJBQMSZKJRHXJZCGBJKHCGGTJKJQALXBXFGDRDYLXJGDTSJXGJ JJCMZLCQSBTSHQBXTTXHXFTRDKFJHZXJFJJJJCJJJJJJJJJJJJJJJJJJJJJJJAJJJJJJJJJGJHJCJJJJJJHCJJJJJJJJJCJJJJJJJJGJJGJJJJJJJJJJJJFJJJJJJJJ'
    + S1 + 'JXRZCDLLLCQCQZQWQXSWTWGWBCCGCGLQZBCLMQQCZGZXZXLJFRHYCFLXYSQXXJK XRMJDCDHMYXBSQBHGCMWFWTGMXLZBGYTGJJJJJJJJJJJJJJJJGJJJJJJJJJCJJJJJJJJJJJJJJJJGJJJGJJJJJJJJJJJJJJJJJJJGJJJJJJJJJJJJJJJJJJJJJJJJJJ'
    + S1 + 'ZWCCDXYZXSWGSYJYZNBGHCJCQSWXCJRTFYCGRHZTXSZCTHCBFCLSYXCLJQMZLMP LXCJSCLBYSJQHXJSXRXSJCZZSSLJFLCZJDJCJJKGKGKJJKKKCKKKKKKKGGGHKKKKKHKKKKKKGGHKKKKKKKKKHKKKKKKKKGKKGKKKKKKKKKKKKKKKKJKKKKKKKKKKKKG'
    + S1 + 'RCRXHHZXQYDMGJSJJHQCJHBCYNSSSRJBQLFXQPLMLXZKYXLJCJLCYCRJZZLLLLL HRZZDXYTWXCXFFQBPXZGYGZTCQWYLTLSGKKHKHHKGGKKLLLJLLLLLLLLLLLLLLLLLLLLJLLHLLLLLLLLLLLLLLLLLLLLLLLJLLLLLCLLLLLCLLLLLLCLLLLLLLLLLLL'
    + S1 + 'RMGZJMMGKJFSGZYAFSMLBFCWBJCLJMZLPJJLMDXYYFBYGQYGXZYRQQHXXYKQYGY FSFSLNQGCFHCCFXBLBLZQXXXKHHSSHJDSLLLLDLLLLLLLLLLLCLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLCLLLLLLLLLLLL'
    + S1 + 'CXCZWHHHPLHALPQAHXDUGGGDNEDTPCCJJCLJZLJLHYHYQYDHZUZCZYTTEYTSHSL JBDGWXPCDUTJCKLLWKLLCSSTKNTDNQJTTLLLLLLLJLLHLLLLLLLLLLLLLLLLLLLLLLLLLLLBLLLLLLLLLKLLLLLLLGGLLLLLLLLLLLJLMMMMMMMMMMMMMMMMMMMMMMM'
    + S1 + 'LZSSZYQKCGBHCRRYCHBPFYRWQBBXKDBBBCTFFSNPCFXMQKCYPCXEHZGCTCMXXMX NWWXJYHLCTMCSJTJCTCTCNDNPGLCCJLSBMHHMMMMMMMMMLMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMBMBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM'
    + S1 + 'LPGJCDNNDSCJDBGWMNDCLODANSYZRDWJJDBCQWSTSZYLJPXLOCBGPCJFCLHYLXC CNLCDXTFZJHCYXSFZDKNJCJGLTQCBXEWZMMMMMMMMMMMMMMMMMMMMMMMMMMMBMMMMMMNNMNNNNNANNNNNNNNNNNCNNNNNNNNNNNNNNNNNDNNNNNNNDNNNNNNNNNCNNN'
    + S1 + 'XBXKLYLHZLQZLLZQWGLGJJGCBNGJDJXTXCQYXJJXSJRSTPHGHTXDFPTFCLLXHFK FZFLYLUBNJHJBMDDBCYCLDXTDDQLYJJHQNNNCCNNNNLNNNNNNNNNNNEOOOOOOOPPPMBPBBPPBBPBPPFPPPPLBPPPPBBBBPPPPFPPPPPFPPBPPBPPPPPPFFPHPPPPPPP'
    + S1 + 'LLCSJPYYCJDTJPYCMGXHZHSZCWQWRFXHJJACMRHQYYQPDDJYBYNNBBXYXHZDDNH MRGBWBZZJCUXGLRCCWHZLWDGCGGJYCBMZPBPPPPPPPPPPPPBPPBBBBPPPPPPPBPPPBPBPPPBPPPPPPFBBBBPPPPPBBJQQCQQQQQQJJAQQQQJQGQJQQQQQJQQQQQGLQQ'
    + S1 + 'QZHFGDCJEAQCPJCSZDCYDWLDFRYBYSCCWBXGZMZJTQSCFMXJCJYCHCJWSNSWMJN MTNMCDQDCLLWNKPZGGLCCZMLBQJQDJJQCQHQQQQQQQQQGQJAJQQJQJHQQQCKQQQJCQQQQQQJJQQQQQQQQJCQQQQQQQQQQQQQJQQQQQQQQQKQQQQQQQQQQQQCGJQQJQJ'
    + S1 + 'GHJAWBZJLTTDHHCCHFLSJYSCGCZTJBYMBPDJKXWJYBLXNCWCSBMAYHKJMZZJRXS AQJFLJFHHHYTZJMHSGZJWBWJDYJQQHSLZQJQCQJQQCQQQQQQQKGQJQQQQQQRRDRRRNRRRRRRRRRRRRLRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNRRJRDRRRRSSSSSSSSS'
    + S1 + 'YYMYSZGRXUEYHYSCSYZNLQHLJXCSTLHDQJPCYCYPPNXFYRCMSMSLXGLGCTLXYGZ GZTCPUSLLDTMTCALCPFJCJWTCYYJBLBZLSSSSSSSSSSSSSCSSSCSMSSSSSSCSSSSSSSSDSSSSSSSSSSSCCSQSSDDSSSSCSSCGSCNSSDSSSSSSJSSSSCPSSSSLQSSSSM'
    + S1 + 'JMYLJBGHDCSSDHBCCSXHAMJZBJMCNHJYJYGCHSKQMCZLWJQSMOCDJLYJCHJMYBY LRETFJFRFKSYXFDWDSXXLWSJSLYXSNXWYSCSQKSSSSSSSSSDJSSSSSSSSSSSSSQSSSSSSSSSSSKSSSCJFSSSSSSSSSSSDSSSSSSSSSSCSSSSSSSSSSSSSSSSSSSSSSS'
    + S1 + 'XHAHHJCXLMLJCSQLKYDTTZSKFDXGSJHSXYBDPWNCMPCZCZENYCHQFJXKBDMLJQQ UQSLYXXYLLJDZBLMHBCTTQQWLHOGWBLSCSSSSCSSSQSSSSSSSSSSSSSSLSSSSSCSSSSSSCSSSSSSRSSSSSSSSSSSSSSSSSQSSSSSSDSRSSSSSSSSSSSSSSSSSSDTTCD'
    + S1 + 'ALXQLTERRJLSTMWPYXJJXQSJFBNYXYJLLYQYLTHYLYMHGLJDMLLHFZWKHLJLHLJ KLJSTLQXYLMBSXCHXCFXLHHHJBYZZKBSSTTTTTTCSTTTTTTNTTHDSTDTTTTTTTTTSTTTTTTTCTCCDTCTTTTTTDTTTTTTTTTDTCDDTBTTTTTTTTCTTTTTDTTTDTTTTTJ'
    + S1 + 'DQCUJZSYGZXBEBCQWYYJQTQWJHQQZMWFFHFRBNDPCJLFZGPBXDBBZTGYGCHBFLY XLXPJSYWMNGQLXJQJTCBHXSFXLBXYJDDHDTTTTTTTDCTTTTTTTDTTTDTSTTTTTTCTCTCTQTTTTTTTTTCTTTDDTTTTTWGJGGWMWWWWWWKWWKWWWHWWWMWHWWKWWWWWWW'
    + S1 + 'SJQYJSLLDTKHHBFWDYSQRNTLDEBDWCMULJTMXMJLXYNWFYMWRXHYSCTZZCYMLDQ LGAQYJBSCQWLBRJWXHSBHYDNHHGMYWYTZWWWHHGWWWWWWWWWWEWWWWMWWWWLWWWWWWWWWWWWWWWWWWWWGWWGWOWWWWWWWWMWWWTMWWWWWWWWWWWWMWWWCXSXXXXXXTS'
    + S1 + 'CSQTSDLWDCJPYCLQYJWXMZZMGLCLMXCMZSQTZPJQBLGXJZBLJJXCJNXMCXSCCDL CJJDJCXSKYCLZXZZXMXQRJHZJBHFLJLMLXXXXXXXXXXXXXXXXXCXXJXHXXHXXHJXXXXSJHHXXXXJXXXXXDXXXJXXXXKXXXWXXXRXXXXXXXXXXXXHXXXXXQXQXAXXXXX'
    + S1 + 'QNLDXCLLLPYPNGYSXCQHCMJSZHNFZMEKMXKYQLXSDLXHWDCWDZGYYFFJZDYZJQX RZJCHRTLBYZBSJHXZTPBDFGZZRYTJGXCQXXJXCXXXSXHWXJXXCXXXXXXXXXXXXXXXXXXXSXXXXXXXXXGHCNXXSKXXXXXXXXXXXXXXTXQNXSXXHXXXXXCXCXXXHXXXXX'
    + S1 + 'YMBUCCKRJJBJERZGYKXSKNSJKLJSGZLJYBZSQLBCKTYLCCCLFFGADZQJGKQTSFC XDKDXXYFTTYHPDWTGHRYNJCBSNYJHKLLSSXHXXXHJXXXXXJXXXSXXXXXXYJYYXYYYYAYYYEEYYYYYYYYXDYYYYYTYYYWYYYYYYYYYPYYYYYYYYYYYYYXYYAYYYYYYJY'
    + S1 + 'LNDXXWBCJSBBFJJJCJCZBBXXBRMLAYGCSNCCDDTBLFZTDWSBXBCLLXSLZDJCSJY LYXBFFBHJJJGBYGJPMMMMSSCZJMTLYZJXYYYYYTJYLYYYSXYSYYXYYXYYYSYYYJYYYYYYSCYYNYYYYYYJYJXSYYYEGYYYYSYYYYYYXYYYYYYYYYSYYYYYLYJYYYYYYY'
    + S1 + 'SWXTYLEDQPJMYGQZJGDBLQJWJQLLSDGYTQJCZCJDDHQGSGJHQXNJLDBXSGZHCWY LJWYWYDFKQJJFXDHCTXJDRXYSQTJXYEBYYYYYYYYYYYYYYYYYYGYYYYYYYYYYYYCYTYYYYYYYYYYYYLYWYYYYYYYYYXYYYYYTSDYTYYYYYYYYYYYHYYXYXOYYWYYYYY'
    + S1 + 'YSSJXJNNCYZXFXCSYSZHYYSCHSHXZZZGZCGFJDLDYNPZGYJYZDDQZPBXCBDZTZC ZYXXYHGSCXSHCGGQHJHGXWSCDMMEHYXGCYYYYSYYYYYYYYHYWYYYYYYYYYYYDHTYYYRYYYYYJYYYWYYYYZZDZZZZZZZZCZZZZZZZZZZZCZZZCZZSZYZZZZCZCZZCZYG'
    + S1 + 'BDCLZKKWJZRCLEKXTDBCYKQQSAYXCJXWWGSBHJSZSDHCSJKJCXSWXFCTYNYDBZC CZJQTZWJQDZCZQZLJCHLNBHPYDXPDXSHGZGZCZZZZZZZCZZQZZDNCZZNCZZZTZZCZZZZZZZZZZZZZCZZQZHZDZZZZSZSZZZZDZYZZZZJZZZZZCCZSZTZZZZZZZZZZZZ'
    + S1 + 'EZDXFPTJQTZZAHYAGNCFCYYHXGNQMYWXTCSPDHHGHMSMXQCXSSBCQSJQXHTYYZX BCLMMSZMJZJLLCOGCSAAJZCHJMCHHCXZSZZZZZQQQZZSZSZZZZZSZZZZZZZZZZZZZDZZZSZZZZZZZCCDZCZZZZCZCZYZZZZCYZZZZZZZZZZZSZCZDZCZZZZZCZCZZZZ'
    + S1 + 'XZDZNLEYJJZJBHQMJZSQTZPSXZTDSXJJLNYAZHHYYSRNQDTHCHAYJYJHDZJZLSW CLTBZYECWCYCRYLCXNHZYDZYDTRXXBCSXZZCZZZYZZZSZZZPZZZZZCZDZZCZZZZZZZZZZZZZCZZZCZZZZZZZZQZZZZZZLCJZCCJJCCJZZQZZZZCZZZZZZZZZZZ     '
    + S1 + 'QHXJHHHJXLGDLKFDBSXFZZYYCHTYYJBHECJKGJFXBZJFXBWHDZFYAPNPGDYMSHK HALNBYJTMXYJCTHJBZYFCGTYHWPHFTGZZCJWGNSPGCENEGYPBTWXZDXYKYGTDJNMJQMBSGZSCYJSYYFPGGBZGYCYWJKGALJSWKBJQHYJWDDZLSGMRYBYWWCCGZNKYDG'
    + S1 + 'EZSBZEGPBMDSKBTYCMHBLLHGPZGXZJGZJYXZSBBQSCZZLZCCSTPGXMJSFTCCZJZ DJMCYBZLFCJSAZFGSZLYBCWZZBBZDZYPDTTNGJEYEKZYDCJNMCYLQLYPYQBQRPZSLWBDGKJFYXJWCLTBNCXJJJJCXDTQSQZYCDXXHGCKBPHFFSSPYBGMXJBBYGLBHLS'
    + S1 + 'WYJGXZBDSYUXLGZYBZFBXTXCCXTZLSQQXCGQCCCDDXZJJCCGCTDGSCXDSYJJJCC LDCZTCCGCQJZTEZKKGCFYBJCYCLMKCQZJSMZMPJHSOJNGHDZCDKLGJHSGQZHXQGKEZZWYMCSCJNYETXADZPMDSSMZJJQJYZCDJFWQJBDZBJGDNZCBWHGXHQKMWFBPBQ'
    + S1 + 'DBJNYJCDCQSXCBZJCDJCCCJNQBCMSJQMJJRCJJNJNLLCWJCQJCZPZCDCYCZCGSB ZNCTQCDDJLCBCLLTDSXKJZQDLZLZNTJXCDTJJZKQHYLCGCFPTYJYYZPSJLFCHMQSHGMMXSXJJKDCMBBQBEFSJWHWWGCKPYLQBGLDLCCTNMAEDDKSJNGKCSGXLHZAYBD'
    + S1 + 'BCJLTQJLDGDBBJQDCJWTNZLZCDWLLXWLRSNTQJCCXKJLDFTDGLRLAJJKUYMKQLL DZYTDYYCGGJYXDHFRSKSTCDENQMRKQZHHBTSDKDYLHGYMYLCXPYCJNDQJWXQXFYYFJLEJBZRWCCQHQCSBZKYMGPLBMCRQCFLNYMYQMSQTRBCJTHZTQFRXCHXMCJCJLX'
    + S1 + 'GKCLDAZFKYPBGGPZFEBZZDKDQSPEGJJGHKCZZZSLYSYHQZWFQZNLZZLZHWCGKYP QGNPGBLPLERJYKCCCEYHSBZFWBNYWKGZHQGJMSHZKBSWXEMDLCKFSYDSGLYCJJSSJNQBJCTYHBFTDCYJDGWYGHQFRXWCKQKXEBPDJPXJQSRMEBWGJLBJSLYYSMDXLCL'
    + S1 + 'YLJCZWHXZJZBLFFLGSKHYJZEYJHLPLLLLDZLWCZBLCXBBUBCBBNNZCYRFSRCGYT QZGTZDHDEZCCCCWTTKHDYNYJLXDJYQDJSQKXLHTJRJJMBJHXHWYWCBHTRXXGLHJHFBMGYKLDYXZPPLGGPMTCBBAJJZYLJTYANJGBJFLQGDZYQCAXBKCLECJSZNSLYZH'
    + S1 + 'YWLSHGLBCJBYZJYCTDYNDSACTSZYYEGDHNYCXTDCYSHGZDCCSDDLCCRQSYSELSM HZTEBBCYYLLTQSYFWFHBXSYCHBJBWKGSKLXLZCGHBXZHZNYTDSBCJKDLZAYFFYDLABBGQSZKGGLDNDNYSKJSHDLXXBCGHXYGGDJMMZNGMMCCGEZSZXSJBZNMLZDTHCQ'
    + S1 + 'GHJHGXGFLYCDLFWLJGBXJAQQZJPLNCBXJYQYMRBSYYHKXXSTMXRCZJYWXYHYMCF LZHQMQXDBXBZWZMLDMYCKFMKLZCYJYCCHYDBDLLSCDDNLKJYHJSYCJLKOHQASDHNHCSGAEHDAASHTCPLCPQYBSDMPJLPCJAQLCDHJJASPRCHNGJNLHLYYQYHWZPNCCG'
    + S1 + 'XCLYYZMDDZYFTQPCZCYYPFHWLLATZDZJDTCCYFKSCCYYAZJPCOLZYJTFNSJANRC YLMMNXJLMYBSSLJGYLDZDPQBZZBLFNDSJWWMZFFJQQQQXXACLBHKDJXDGMMYDJXZLLSYGXGKJRYWZWYCLZMCSJZLDBNDCFCXYHLSCHYCJQPFQAGMNYXPFRKSSBJLYXY'
    + S1 + 'KCZFHHGGQMJDSXYCSTXNQQJPYJBFCJDYQFBNQEJDGYHBSRCCFDYQBGHYJDYZXGR HTKYLNWDZNTSMGKLBCGBPYSZBYDGZSSTJJJGLNSCMHCWWMNZJJLHMHCHSYDPTTXRYCSXBYHCSMXJSXNBWGPXXTAYBGAJCXLYPDCCWQOCWKCCSBNHCPDYZNBCYYTYCKS'
    + S1 + 'CSSXZBHBSCSBZCZPTAFZLQFLYPYBBJGSZMNNDJMTHYSKKBTXHJCEGBSMGYJZCJT MLJSHRZZSCXJQPTZHMKQGXXJCLJPRMYYGKYBSQKKYTQQXFCWCHCWKELCQBSQYJQCCLMTHSYWHMKTLKJLYCHWHEQJHTJHPPQPQSCFYMMCMGBMHGLGSLLYSDLLLJPCHMJ'
    + S1 + 'ADYSKJSNDHDSKQXNXZTCGGYDLMLJXJBSYCDBHJHCFCWZSJHWTKCLJJSHLYCZJXE MPLPDCGLTBZZTLNJCWJGDTCFGLPLLQFJMHWLJCYHZJXHDXJLHXRSWLWZJCBXMHZQXSDZPMGFCSGLSDYMJSHXPJXOMYQKNMYBLRTHBCFTPMGYXLCHLHLZYLXGSSSSCCL'
    + S1 + 'ZBABGYZLAKTGDNCZZBNZCTDQJCJYJGMCTTJDGCSZLMLHBGLKFWNJHDXUHLFMJYC JGXDTWWFRJEJCTZHYDXYKSHWFZCQSHKNQSLDCLEPBHSHXYYFHBBGDFYCNJQWLQHJJCYWJZTEJJDHFBLQXTQKWHDCHQXAGTLXLJXMSLJHDZKZJECXJCJNMBBJCSFYWKB'
    + S1 + 'QHTZHXMJDJSKHXDJQBZZXYMPAGQMCDBXLSKYGHWRTSCGSCBPDBSGZWJHTLKSSSJ GTTLYYTNXJGMJSZSUFWNLSKCTXGXLSMMLJZGHYSDCPQYRSLJPCLPWXSDWEJBJCBCNAYTMGMBAPCLYQBCLZXCBNMSGGFNZJJBZSFQYNDXHPCQKZCZWALSBCCJXJOZGWK'
    + S1 + 'BWLDCZYAKQCQCTMYCFJBSLXCLZJCLXXKSBZQCLHJPHQPLSXSCKSLNHPSFQQYTXJ JZLQLDXZJJZDYYDJHTPDUZDSKJFSLJHYLYBSGXFCFCDKHJBSTLQFSGDSLQWZKXTMHSBGZHJCRGLYJBPMLJSXLCJQQHZMJCZYDJWBMJKLDDPMJEGXYHYLXHLQYQHKYCW'
    + S1 + 'ZCJSLBDHXDGCJBDYAZXDZHZJNHHQBYKNRJJQCZMLLJZKSPLDLCLBBLXKLELJLBJ YCRJXGCNLCQPLZLZNJTZLSYJBXMYZGWQCCJMYHXNATJHYCCXZPCQLBZWWWTWBQCMLBMYNJCCCXBBSNZZLJPLJXYZTZLGCLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZ'
    + S1 + 'ZYHZBTRBLHLCCCJADJLMMMSSHMYBBBSKKBHRSXJJMXSDGNZPELBBRAGGGFCHGMS KLLTSJYYCQLCSKYWYEHYWHBHQYWBAWYKJLCLGJDJCSNCLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCCZHGYJDJQQLZXJYLDLBCYAMCSTYLBDJBYREGKLZDZHLDSZCHZNW'
    + S1 + 'LDQPTNTKHJCGDQKCGPHSHCPDHTWUBKDHTHLXGTYYDASPGYZPCAQDLTBDSDEGYJQ JCFXSSBZXDFYDLAJCLSXYDYEXCYASDWNDCZCLLWJQJJJKDGJCOLBBZPPGLGHTGZCYGEZMYCNQCYCYHBHGXKAMTXYXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKJSB'
    + S1 + 'AJAYDYWTJDAXYSRLTDPSYJFNEJDYZLXLLHHYQJHGJHZYCSHHSGCZYJGLCNXZJJN FSMFFYCYAMDDHDMCSLQZHZYZTLDYMLLHYGBMMCJSSCLPQPDXCDYYKYFCJDDYYGYWCHJRTGCNYQLDKLJCZZGZCCJGDYKSGPZMDLCPHNJAFYZDJCNMWESCSGLBTZCGMSD'
    + S1 + 'MMYLMBMWKXYDTYLDJPYWUXJMMLLHAFDLLAFLBHHHBJTZCJJJTFMBMHYDCHRDDWR QNYSNMZBYYTBJHPBYGTJAHGQTBSTJKBTSLLYXQSXSBLJSBBSGGHFJLWPMZJNLYYWDQSHZXTYYWHMCYHYWDBXBTLMSWYYFSBJCBDXXLHJHFPSXZQHFZMQCZTQCXZXRDK'
    + S1 + 'BKLDBEQQHQMJDOTTXPGBKTLGJXJJJCDHXQDWJLHRFMJGWQHCKRYSWGBTGWGBWHD WDFJXXXJZLPHYYPAYXHXDKKXSAXYXGRKKDJHNNYZQQFNQDMMGNYDXMJGDHCDYCBFFALLZTDLTFKMXQZDNGEQDBDCZJDXBZGSQQDDJCMBKXFFXMKDMCSYCHZCMLJDJYN'
    + S1 + 'GYKBDDDPPLCJLGQAEWJKSYYHDBPLFJTHKJLTCJYHHGTTBLTZZCDLSHQKCJQYSDE EYHKYZYXPYYSDDJKLLPWMCQHQGXHHCRMBHPRSJMKMPCKLGDBQTFZSWTFGGLYPLLJZHGJJGYPZLTCSMCNBTJBHFKDHBYZGKPBBYMTDLSXSBNPDKLEYCJNYCDYKZDDHQG'
    + S1 + 'XPLLNQTJPJYLFDGFXZBLBTLGXSJBSWYYSKSFLXLPPLBBBLBSFXYZSYLFFFSCJDS TGTRYJCYFFCYTSZBJTBCTSBCDHRTJHBYTSDZSCTARLLTKZLGECLLKJLJJAQNBDGGGHFJTZQJSECSHALQFMMGJNLYJBBTMLYCXDCJPLDLPCQDHSYCBZSCKBZMSLJFLHR'
    + S1 + 'CXYJELXBNEBJDSYSYHGCJZBKBYDFZNGENHHHHJHATFWGCSTBGXKLSTYWMTMBYXJ SKXSCDEJRCWXZFHMYMCXLZNDTDHLXDJGGBJSNBRGJHXPDGDJYBZGDLGCSEZGXLBLGYXTWMABCHECMWYJYZLLJJSHLGBDJLSLYGKDZPZXJYYZLPCXSZFGWYYDLYHCLJS'
    + S1 + 'YBFBNBBTHFJAAXWFPXMYFHDDTCXZSPJRSYWZDLYBBJDYQPQJPZYPZJZNJPZJLZD FYSBTTSLMPTZRTDXQSJEHBZYJZDHLJSQMCMBJHBLYJLYCBLYDPDQYSXKTBYTDKDXJYPCNRJMFDJGKLCCJBCTBJDDBBLBLCDQRPPXJCGLZCSHLTOLJNMDDDLNGKAQAKG'
    + S1 + 'LHTXTJECXALZDSPKTLZKJQYFSYGYWPCPQFHQHYTQXZJRSGTGSJCZLBTXCDYYQSS QCSLXLZMACBCQBZYXHBSXLZDLTCDJTYLZJGYHHEZNMSHRPHQQJCHGMFPRXCJGDYCHGHLYRZQLCNGJNZSQDKQJYMSZSWLCFQJQXGBGGXMDJWLMCRNFKKFSYYLJBMQAMM'
    + S1 + 'JYYTPZYLLTXJSJXHCBRYBXQZSJSWWWYGYABBCTJKTGPYSBXBBCMLLXZTBKLGQKQ LSKDFXRDKBFPFTBBMFEEQGKPZSSTLBDPSMYCCTBSHCPTXXZZSMPHFSHMCLMLDJFYQXSDYJDJJZZHQPDSZGLSSJBCKBXYQZJSGPSXJZQZNQTBDKWXJKHHGFLBCSMDLDG'
    + S1 + 'ZZSJCHLQLZPMSMMSXLQQNKNBNDDNHHDHDDJYYYFQGZLGSMJQGXHCQLGPBQXCYZY DRJBGTDJXEESHTMJSBWBLWHLSFFNYPMGXDZDBLZKYCQNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLDXCCLZSHZCXRQJGJYLXZFJPHYMZQQYDFQJJLCZNZJCDGZYG'
    + S1 + 'QHPLTBQPFBCWGDBYGJNXTBFZJGSDCDJSHXEAWZZYLGTTQBWJKGXGHLFKXDJTMSZ SQYNZGGSWQSBHCLSSKMCLZXYSZQQXNCJDCDXMZYSCTLKPHTXHTLBJXJLXSCDQCCBBQJFQZFSLTJBTKQBSXJJLJCHCZDBZJDCZJCCPRNLQCGPFCZLCLCXZDMXMPHGSGZ'
    + S1 + 'QGZDLFNYKLACJLLZLMZJNHYDSCHTHXZLZJBBHQZWWYCRDHLYQQJBEYFSGXTHSRX WJHWFSLMSSGZTDYEYQQWRSLALHMJTQJCMGSZZQJXLWTJPFSYASLCJBTCKWCWMYTCSJJLJCQLWZMALBXYFBPNLSCHTGJWEJJXXGLLJSTGSHJQLZFKCGNNDSZFDEQFHBS'
    + S1 + 'XQBJJZJQLYZKXBYQXBJXSHZSSFGLXMXZXFGHKZSSGGMLCLSARJXHSLLLMZXELGL XDJTBGYZBJKTZHKZJYQCBCTWWQJFJWXHGAQDGYLBXMMYGSZLDYDJMJJRGBJGKGDHGKBLGKBDMBYLXWCXYTTYBKMRJJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ'
    + S1 + 'SGDYFLJBYFDJFRGSFMBYCHQFBWJSYFAGGPHZBYYZFFWODGRLBFTMLBZGYCGXCDJ AGZYYYYHYTYDWEGAZAHXJLZXTHLRMGRJX                                                                                              '
    + S1 + 'DCGHNELJJTGTBWJYBJJBXJJTJTEEKGWSCJPLPSFAZFQQBDLQJJTYYQLYZKDKSQJ YYJZLDQCGJJYZJSUCMRAQCHCEJMBCTYHY                                                                                              '
    + S1 + 'BKMHYCWJDCFHYYXWSHCTXRLJGJSHCCYYYJLTKTSYTMXGTCJTZAXYOCZLYLBSZYW JYTSJYHBYSHFJLYGJXXTMZSYLTXXYPCLX                                                                                              '
    + S1 + 'YJZYZYYBNHMYMDYYLBLHLSYYGGLLSCXLXHDWKQGYSHQYWLJYYHZMSLJLJJCJJYY CBCPCJMYLCJLNJJJLXXJMLZJQLYCMHCFM                                                                                              '
    + S1 + 'MFPQQMFXLMCFQMMMZNFHJGTTHKHCHYDXTMJDYMYYCYJYDYDCWMDYDLFMYCQCWZZ MABTBCMDZGDFYCGCYTTSFWBDTZQSSSTJJ                                                                                              '
    + S1 + 'HJYTSXLYHHHXEXWZNNJZJJJJCCCHYYXBZSCCYJTLLCQSKNJYCYWCQNCCQYYOEWY CZDCJEHYLPGLYLLGKDLDGQBCHJXY                                                                                                   '
    + S1;

  If hzstr = '' Then
  Begin
    result := '';
    exit
  End;

  STRLEN := LENGTH (hzstr);
  PYSTR1 := '';
  j := 0;

  For i := 1 to STRLEN Do
  Begin
    If j = 0 Then j := i;
    If MIDSTR (hzstr, j, 1) > chr (128) Then
    Begin
      n:=StrToInt(padl(ord(hzstr[j])-128) + padl(ord(hzstr[j+1]) - 63));
      PYSTR1 := PYSTR1 + PYSTR[n];
      inc (j)
    End
    Else PYSTR1 := PYSTR1 + MIDSTR (hzstr, j, 1);
    inc (j)
  End;
  result := UpperCase(PYSTR1);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit2.Text:=topy(edit1.text);
end;

end.
这种做法是将汉字码与首字母对应起来，非常全面，但也有个别问题存在，希望大家指出