Автозамена русских букв

AnsiString __fastcall TForm1::EnglishLastName(AnsiString LastName)
{
  AnsiString dfg;
 
  AnsiString FamField[28][2] =
  {
    //English           Russian
    { "а","a"},
    { "б","b"},
    { "д","d"},
    { "е","e"},
    { "ф","f"},
    { "г","g"},
    { "х","kh"},
    { "и","i"},
    { "к","k"},
    { "л","l"},
    { "м","m"},
    { "н","n"},
    { "о","o"},
    { "п","p"},
    { "р","r"},
    { "с","s"},
    { "т","t"},
    { "у","u"},
    { "в","v"},
    { "ю","yu"},
    { "я","ya"},
    { "ч","ch"},
    { "ш","sh"},
    { "й","y"},
    { "ы","y"},
    { "щ","sсh"},
    { "з","z"},
    { "ц","ts"}
 
};
                               //строка  столбец
   /*ShowMessage("Рус "+FamField[1][0]);
   ShowMessage("Англ "+FamField[1][1]);*/
  for (int i = 1; i <= LastName.Length(); i++)
  {
     for (int b = 0; b < 28; b++)
      {
        if((AnsiString)LastName[i] == FamField[b][0])
        {
          dfg +=FamField[b][1];
          break;
        }
      }
  }
   return dfg;
}
 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
Label1->Caption = EnglishLastName(Edit1->Text);
}