Delphi中实现汉字拼音声母查询

Delphi中实现汉字拼音声母查询,unit代码如下：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
     ResultList1:TStrings;
  end;

var
  Form1: TForm1;

  procedure SearchByPyIndexStr(PYIndexStr :string);

implementation

{$R *.DFM}
function GetPyIndexChar(Hzchar:string):String;
begin
   case (Word(hzchar[1]) shl 8 + Word(hzchar[2])) of
      $B0A1..$B0C4 : Result :='A';