Зашифровка данных

 dir = ExtractFilePath(Application->ExeName);
StringGrid1->Cols[i]->LoadFromFile(dir+IntToStr(i+1)+"qwe.txt");

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      TStringList *tekst = new TStringList;
      unsigned char str, msk = 0x4B ;
      AnsiString St;
 
      tekst->LoadFromFile("proza.txt");
      for (int i=0;i<tekst->Count;i++,St="") {
        for (int j=0;j<tekst->Strings[i].Length();j++)
         { str = tekst->Strings[i][j+1] ^ msk; St += (char)str; }
        grid->Cells[0][i]=St;
      }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//----------------- Функция шифровки\дешифроовки ----------------------------
const AnsiString CodeString(const AnsiString &in)
{
  const int size = in.Length() + 1;
  AnsiString result = "";
 
  if (in.Trim() != "")
  {
        for (int i = 1; i < size; i++)
        {
          result += (char) (in[size - i] ^ 20);
        }
  }
  return result;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Создаем вспомогательную таблицу
        TStringList *Table = new TStringList;
// Заполняем ее данными с грида при этом шифрую функцией CodeString
        for(int i = 0 ; i < StringGrid1->RowCount ; i++)
        {
                Table->Add(CodeString(StringGrid1->Rows[i]->DelimitedText));
        }
// Сохраняем в файл
        Table->SaveToFile(ExtractFilePath(Application->ExeName)+"MyDataBase.txt");
// Освобождаем память
        delete Table;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// Создаем вспомогательную таблицу
        TStringList *Table = new TStringList;
// Загружаем в нее данные
        Table->LoadFromFile(ExtractFilePath(Application->ExeName)+"MyDataBase.txt");
// Заполняем грид при этом расшифровываем данные с помощью функции CodeString
        for(int i = 0 ; i < StringGrid1->RowCount ; i++)
        {
                StringGrid1->Rows[i]->DelimitedText = CodeString(Table->Strings[i]);
        }
// Освобождаем память
        delete Table;
}
//---------------------------------------------------------------------------