▁▂▃▄高手请进，关于汉字拼音的问题▄▃▂▁(200分)

各位高手：我正在写一个药品库管理的系统，我想根据汉字拼音首字母检索出所有汉字。
并且能处理多音字。。单以下代码只能检索一级字库！二级字库中的汉字却查不到。。
各位有什么好办法？？？ xjzcg@sina.com 谢谢！
$B0A1..$B0C4: Result := 'A';
$B0C5..$B2C0: Result := 'B';
$B2C1..$B4ED: Result := 'C';
$B4EE..$B6E9: Result := 'D';
$B6EA..$B7A1: Result := 'E';
$B7A2..$B8C0: Result := 'F';
$B8C1..$B9FD: Result := 'G';
$B9FE..$BBF6: Result := 'H';
$BBF7..$BFA5: Result := 'J';
$BFA6..$C0AB: Result := 'K';
$C0AC..$C2E7: Result := 'L';
$C2E8..$C4C2: Result := 'M';
$C4C3..$C5B5: Result := 'N';
$C5B6..$C5BD: Result := 'O';
$C5BE..$C6D9: Result := 'P';
$C6DA..$C8BA: Result := 'Q';
$C8BB..$C8F5: Result := 'R';
$C8F6..$CBF9: Result := 'S';
$CBFA..$CDD9: Result := 'T';
$CDDA..$CEF3: Result := 'W';
$CEF4..$D1B8: Result := 'X';
$D1B9..$D4D0: Result := 'Y';
$D4D1..$D7F9: Result := 'Z';

我有一个，我改过了，你试试！

发给我好吗？谢谢

已发！请查收！

to SanDao:
也发一个给我好吗？谢谢！
zhengyoukang@163.com

SanDao：
给我发一个呗，我也想要！
zlwlove@0451.com

我也发一个

有现成的dll可以直接调用的

to SanDao:
没收到，拜托重发一份。xjzcg@sina.com 谢谢了

拼音转汉字
http://www.jnnj110.gov.cn/jingning/uploadImages/200282011255844348.zip

又发了！查收！

我要要要要

jie_gu@21cn.com

多人接受答案了。