Код Цезаря - ошибка

void __fastcall TForm1::Button1Click(TObject *Sender) //кнопка зашифровать
{
  AnsiString vt, str;
  int n, j, i;
      vt=Edit1->Text;                     //входящий текст
      str=Edit4->Text;                    //здесь алфавит
  n=ComboBox1->ItemIndex;       //ключ
  for ( i = 1;i<=vt.Length();i++)
{
     for (j=1; j<=str.Length(); j++);
      {
        if (vt[i]==str[j])                   //если символы совпали
             j=j+n;                            //прибавляем ключ
           if  (j>=32) {j=j-31;} 
          vt[i]=str[j];                       //замена
      }
 
}
Edit2->Text =vt;                        //вывод зашифрованного текста
}

//---------------------------------------------------------------------------
// строка для определения смещения кодирования
UnicodeString strcode = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz0123456789"; 
// значение смещения
int key = 200;
 
// кодирование
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int nkey = key%strcode.Length(); // ограничение смещения (что бы не выйти за пределы массива)
  //
  UnicodeString str = Edit1->Text;
  UnicodeString strcode2 = strcode + strcode;
  for( int i = 1; i <= str.Length(); i++ ) { // проход по строке
    for(int j = 1; j <= strcode.Length(); j++) {
      if(str[i] == strcode[j]) {
        str[i] = strcode2[j+nkey];
        break;
      }
    }
  }
  Edit2->Text = str;
}
//---------------------------------------------------------------------------
// декодирование
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int nkey = key%strcode.Length(); // ограничение смещения (что бы не выйти за пределы массива)
  //
  UnicodeString str = Edit2->Text;
  UnicodeString strcode2 = strcode + strcode;
 
  for( int i = 1; i <= str.Length(); i++ ) { // проход по строке
    for(int j = 1; j <= strcode.Length(); j++) {
      if(str[i] == strcode[j]) {
        str[i] = strcode2[strcode.Length() + j-nkey];
        break;
      }
    }
  }
  Edit3->Text = str;
}
//---------------------------------------------------------------------------

UnicodeString strcode = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz0123456789";