Помогите плиз

Нужно кодировать данные текстового файла
Сделал банально
<lj-cut>{
AnsiString str1;
Memo1->Clear();
Memo2->Clear();
OpenDialog1->Execute();
if (OpenDialog1->FileName!="\0")
{
SaveCode->Visible=true;
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
Memo1->Visible=true;
Memo2->Visible=true;
CloseMemo->Visible=true;
for (i=0;i<=Memo1->Lines->Count;i++)
{str1=Memo1->Lines->Strings[i];
if (str1.Length()!= 0)
for(int j=1; j<str1.Length()+1; j++)
{
str1[j]=str1[j]+1;
}
Memo2->Lines->Add(str1);
}
}

Для раскодирования соответственно

{
AnsiString str1;
Memo1->Clear();
Memo2->Clear();
OpenDialog2->Execute();
if (OpenDialog2->FileName!="\0")
{
SaveText->Visible=true;
Memo1->Lines->LoadFromFile(OpenDialog2->FileName);
Memo1->Visible=true;
Memo2->Visible=true;
CloseMemo->Visible=true;
for (i=0;i<=Memo1->Lines->Count;i++)
{
str1=Memo1->Lines->Strings[i];
if (str1.Length()!= 0)
for(int j=1; j<str1.Length()+1; j++)
{
str1[j]=str1[j]-1;
}
Memo2->Lines->Add(str1);
}
}
}</lj-cut>
То есть "а" превращается в "б", "f" в "g", "1" в "2" н у и т.д.
Но фигня в том что возникают траблы с маленькой буквой "я", она проподает и всё что стоит в строке за ней - тоже....
("Курсовая работа" после кодирования превращается в "Лфстпгб", соответсвенно при декодировании остается только "Курсова")
Как исправить?