delphi가 한자의 첫 번째 자모를 얻다

： //  

function GetPYIndexChar( hzchar: string):char;
begin
  caseWORD(hzchar[ 1])shl8 +WORD(hzchar[ 2]) of
    $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 ..$D188 : result := 'X'; 
    $D1B9 ..$D4D0 : result := 'Y';
    $D4D1 ..$D7F9 : result := 'Z';
   else
    result :=char( 0); //hzchar[1]
   end;
end; 

{$R *.DFM}

procedureTForm1.Button1Click(Sender: TObject);
begin
  label2.Visible :=false;
  label1.Visible :=true;
  edit2.Enabled :=false;
  label1.Caption := ' ' +# 13 ' ';
  edit1.text :=GetPYIndexChar(edit2.text)
end;

procedureTForm1.Button2Click(Sender: TObject);
begin
  label2.Visible :=true;
  edit2.Enabled :=true;
  edit2.setfocus;
  edit2.Text := '';
end;