Разрабатываю свой способ шифрования

if (Edit1->Text == L) 
Edit2->Text=K;

if (Edit1->Text[1] == L) 
Edit2->Text[1] = K;

//---------------------------------------------------------------------------
String Code(String str)
{
    if(str.Length() != 0)
    {
        for(int i = 1; i <= str.Length(); i++)
        {
            str[i] = BYTE(str[i]) + (i * str.Length()); // смещаем на (ПОЗИЦИЯ_СИМВОЛА * ДЛИНА_СТРОКИ)
        }
    }
    return str;
}
//---------------------------------------------------------------------------
String DeCode(String str)
{
    if(str.Length() != 0)
    {
        for(int i = 1; i <= str.Length(); i++)
        {
            str[i] = BYTE(str[i]) - (i * str.Length()); // смещаем на (ПОЗИЦИЯ_СИМВОЛА * ДЛИНА_СТРОКИ)
        }
    }
    return str;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Edit2->Text = Code(Edit1->Text);
    Edit3->Text = DeCode(Edit2->Text);
}
//---------------------------------------------------------------------------

AnsiString str1 = "форум";
AnsiString str2 = "@q#w$e%r^t&y&";
int len = str1->Length();
for (int i=1; i<len; i++) {
  str1[i] = str2[i];
}
ShowMessage(str1);

[BCC32 Error] Unit1.cpp(21): E2288 Pointer to structure required on left side of -> or ->*

int len = str1->Length();

AnsiString str1 = "форум";
AnsiString str2 = "@q#w$e%r^t&y&";
// int len = str1->Length();
for (int i=1; i<6; i++) {
  str1[i] = str2[i];
}
ShowMessage(str1);

str1.Length()

AnsiString str1 = Edit2->Text;
AnsiString str2 = "@q#w$e%r^t&y&";
int len = str1.Length();
for (int i=1; i<14; i++) {// вот здесь !
  str1[i] = str2[i];
}
ShowMessage(str1);

int ed_lnt = Edit1->Text.Length();

AnsiString str1 = Edit2->Text;
AnsiString str2 = "@q#w$e%r^t&y&";
int len = str1.Length();
for (int i=1; i<len+1; i++) {// вот здесь !
  str1[i] = str2[i];
}
ShowMessage(str1);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str1,str2;
  str1 = "Гламурное простое шифрование."; // str1 = Edit2->Text;
  int i,i_key,len;
  len = str1.Length();
  for (int i=1; i<=len; i++) {
    i_key = (char)(str1[i])+2; // здесь с +2 можно поизвращаться
    str2 += (char)i_key;
  }
  Memo1->Lines->Add(str2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString str1,str2;
  str1 = Memo1->Text;
  int i,i_key,len;
  len = str1.Length();
  for (int i=1; i<=len; i++) {
    i_key = (char)(str1[i])-2;
    str2 += (char)i_key;
  }
  Memo1->Lines->Add(str2);
}