Шифрование кириллицы методом Цезаря

void __fastcall TForm1::Button1Click(TObject *Sender)
{
const AnsiString Input = Memo1->Text.Trim();
   AnsiString Result =  "";
   for (int index = 1; index <= Input.Length(); index++)
      if ((Input[index] > 64) && (Input[index] < 91))
      // заглавные буквы
      {
         if (Input[index] < 68) Result+=(char)(88 + Input[index] - 65);
         // обработка для 'A B C'.
         else Result+=(char)(Input[index]-3);
         // остальные символы по обычному шифру.
      }
      else if ((Input[index] > 96) && (Input[index] < 123))
      // строчные буквы
      {
         if (Input[index] < 100) Result+=(char)(120 + Input[index] - 97);
         // обработка для 'a b c'.
         else Result+=(char)(Input[index]-3);
         // остальные символы по обычному шифру.
      }
      else Result+=Input[index];
      // для всяких пробелов и т.п.
   Memo1->Text = Result;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 const AnsiString Input = Memo1->Text.Trim();
   AnsiString Result =  "";
   for (int index = 1; index <= Input.Length(); index++)
      if ((Input[index] > 64) && (Input[index] < 91))
      {
         if (Input[index] > 87) Result+=(char)(65 + Input[index] - 88);
         else Result+=(char)(Input[index]+3);
      }
      else if ((Input[index] > 96) && (Input[index] < 123))
      {
         if (Input[index] > 119) Result+=(char)(97 + Input[index] - 120);
         else Result+=(char)(Input[index]+3);
      }
      else Result+=Input[index];
   Memo1->Text = Result;