Ошибка при нажатии на button

tabula_recta[i][j] = alfabet[shift+1];

AnsiString key_ex(AnsiString str, AnsiString key)//функция для итерации ключа со строкой
{AnsiString k1;
 int len_s, len_k, key_dif, i;
len_s=str.Length();
len_k=key.Length();
key_dif=len_s-len_k;
k1=key;
if(key_dif>0)
{for(i=1;i<=key_dif/len_k;i++)
k1=k1+key;
for(i=1;i<=key_dif%len_k;i++)
k1=k1+key[i];
}
else
{k1="";
for(i=1;i<=len_s;i++)
k1=k1+key[i];
}
//ShowMessage(k1);
return k1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int k; //Переменная выбора - шифрование/дешифрование
        AnsiString result = ""; //Строка - результат
        AnsiString key = Edit2->Text; //Строка - ключ
        AnsiString key_on_s = "";
        bool flag;
        int x = 0, y = 0; //Координаты нового символа из таблицы Виженера
        int registr = 0; //Регистр символа
        char dublicat; //Дубликат прописной буквы
        //Формирование таблицы Виженера на алфавите латиницы
        int shift = 0;
        char **tabula_recta = new char *[26]; //Таблица Виженера
        
        for (int i=0;i<26;i++) {
            tabula_recta[i] = new char [26];  }
 
        AnsiString alfabet = "abcdefghijklmnopqrstuvwxyz"; //Алфавит латиницы
        //Формирование таблицы
        for (int i = 0; i < 26; i++) {
            for (int j = 0; j < 26; j++)
                {
                    shift = j + i;
                    if (shift >= 26) shift = shift % 26;
                        tabula_recta[i][j] = alfabet[shift+1];
 
                }
          }
     
/***********шифрование************/
            AnsiString s=Edit1->Text; //Строка
//Формирование строки, длиной шифруемой, состоящей из повторений ключа
  key_on_s=key_ex(Edit1->Text,Edit2->Text);
            //Шифрование при помощи таблицы
            for (int i = 1; i <= s.Length(); i++)
                {   //Если нешифруемый символ
                    if (((int)(s[i]) < 65) || ((int)(s[i]) > 122)){
                        result += key_on_s[i];   //ShowMessage("2");
                        }
                    else
                        {  // ShowMessage("3");
                            //Поиск в первом столбце строки, начинающейся с символа ключа
                            int l = 0;
                            flag = false;
                            //Пока не найден символ
                            while ((l < 26) && (flag == false))
                            {   //Если символ найден
                                if (s[i] == tabula_recta[l][0])
                                { 
                                    //Запоминаем в х номер строки
                                    x = l;
                                    flag = true;
                                }
                                l++;
                            }
                           //Уменьшаем временно регистр прописной буквы
                            if (((int)(s[i]) <= 90) && ((int)(s[i]) >= 65))
                            {
                                dublicat = (char)((int)(s[i]) + 32);
                                registr = 1;
                            }
                            else
                            {
                                registr = 0;
                                dublicat = s[i];
                            }
                            l = 0;
                            flag = false;
                            //Пока не найден столбец в первой строке с символом строки
                            while ((l < 26) && (flag == false))
                            {
                                if (dublicat == tabula_recta[0][l])
                                {
                                    //Запоминаем номер столбца
                                    y = l;
                                    flag = true;
                                }
                                l++;
                            }
                            //Увеличиваем регистр буквы до прописной
                            if (registr == 1)
                            {
                                //Изменяем символ на первоначальный регистр
                                dublicat = char((int)(tabula_recta[x][y]) - 32);
                                result += dublicat;
                            }
                            else {
                                result += tabula_recta[x][y];  }
                        }
                    }
 
            Edit3->Text=result;
}
//---------------------------------------------------------------------------