RC4 Шифрование (Поправить ввод\вывод)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "MainUnit.h"
#include "RC4Unit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ProcessFile(const AnsiString& pFrom, const AnsiString& pTo)
{
  // Если ключевая фраза будет пустой, алгоритм вылетит
  if (Edit1->Text == "")
  {
    ShowMessage ("Введите пароль для шифрования\дешифрования");
  }
 
  // Передаем ключевую фразу на генератор матрицы
  Memo1->Lines->Add("Инициализация матрицы..");
  RC4_InitKey(Edit1->Text.c_str(), Edit1->Text.Length());
  Memo1->Lines->Add("Выполнено 256 перестановок");
 
 
 
  Memo1->Lines->Add("Открытие файлов..");
  // Открываем первый файл на чтение
  HANDLE in = CreateFile(pFrom.c_str(), GENERIC_READ, 0, NULL,
                       OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
 
 
 
  if (in == INVALID_HANDLE_VALUE)
  {
    Memo1->Lines->Add("..ошибка!");
    Application->MessageBox(("Не удалось открыть входной файл: "+pFrom).c_str(), "  Ошибка",
                             MB_OK | MB_ICONERROR);
    return;
  }
 
  if (Edit1->Text == "")
  {
    ShowMessage ("Введите пароль для шифрования\дешифрования");
  }
  HANDLE out = CreateFile(pTo.c_str(), GENERIC_WRITE, 0, NULL,
                        CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
  if (out == INVALID_HANDLE_VALUE)
  {
    Memo1->Lines->Add("..ошибка!");
    Application->MessageBox(("Не удалось открыть выходной файл: "+pTo).c_str(), "  Ошибка",
                             MB_OK | MB_ICONERROR);
    CloseHandle(in);
    return;
  }
 
  unsigned char buffer[4096];
  DWORD readed, written;
  while (true)
  {
    ReadFile(in, buffer, 4096, &readed, NULL);
    if (readed == 0) break;
    Memo1->Lines->Add("Считан блок");
    for (int i=0; i<readed; i++)
      buffer[i] = RC4_Transform(buffer[i]);
    Memo1->Lines->Add("Обработано "+IntToStr(readed)+" байт");
    WriteFile(out, buffer, readed, &written, NULL);
    Memo1->Lines->Add("Записан блок");
  }
  CloseHandle(out);
  CloseHandle(in);
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::aEncryptExecute(TObject *Sender)
{
    if (Button3->OnClick)
    {
    Memo2->Lines->SaveToFile("TEXT.txt");
    Memo2->Lines->LoadFromFile("TEXT.txt");
    AnsiString Srce = OpenDialog1->FileName;
    AnsiString Dest = "TEXT_CRYPTED.txt";
    Memo1->Lines->Add("Начало зашифрования");
    ProcessFile(Srce, Dest);
    Memo3->Lines->LoadFromFile("TEXT_CRYPTED.txt");
    Memo1->Lines->Add("Зашифрование окончено");
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::aDecryptExecute(TObject *Sender)
{
     if (Button4->OnClick)
     {
     Memo3->Lines->SaveToFile("TEXT_CRYPTED.txt");
     Memo3->Lines->LoadFromFile("TEXT_CRYPTED.txt");
     AnsiString Srce = OpenDialog2->FileName;
     AnsiString Dest = "TEXT_DECRYPTED.txt";
     Memo1->Lines->Add("Начало расшифрования");
     ProcessFile(Srce, Dest);
     Memo2->Lines->LoadFromFile("TEXT_DECRYPTED.txt");
     Memo1->Lines->Add("Расшифрование окончено");
     }
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::aExitExecute(TObject *Sender)
{
  Close();
}
 
//---------------------------------------------------------------------------