Шифрование гаммированием: переписать программу с оконным интерфейсом (Builder 6)

int main()
{
 
    char msg[80];
    int key;
    char n;
    cout << "Plaintext: ";
    gets (msg); 
     cout << "key: " ;
    cin>>key;
 
    for ( n = 0; n < strlen(msg); n++)
        msg[n] = msg[n] ^ key; 
    cout << "Ciphertext: " << msg << "\n";
 
    for (n = 0; n < strlen(msg); n++)
        msg[n] = msg[n] ^ key; 
    cout << "unciphering message: " << msg << "\n";
 
    system ("pause");
    return 0;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TEdit *E_in, *E_out;
  if(((TButton *)Sender)->Tag == 0)
   {
     E_in = Edit1;
     E_out = Edit2;
   }
  else
   {
     E_in = Edit2;
     E_out = Edit3;
   }
  String s = E_in->Text;
  int key;
  if((!TryStrToInt(Edit4->Text, key)) || (s.Length() == 0)) return;
  for(int i = 1; i <= s.Length(); i++)
   s[i] ^= key;
  E_out->Text = s;
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  String s = RichEdit1->Text;
  int key;
  if((!TryStrToInt(Edit4->Text, key)) || (s.Length() == 0)) return;
  for(int i = 1; i <= s.Length(); i++)
   s[i] ^= key;
  RichEdit1->Text = s;
}

if((!TryStrToInt(Edit4->Text, key)) || (s.Length() == 0)) return;

if(!TryStrToInt(Edit4->Text, key))
{
   ShowMessage("Неверное значение ключа или ключ не введен");
   Edit4->Text = "";
   Edit4->SetFocus();
   return;
}
if(s.Trim().Length() == 0)
{
   ShowMessage("Не задан текст для кодирования / декодирования");
   RichEdit1->SetFocus();
   return;
}

RichEdit1->Lines->Clear();

if (RichEdit1->Lines="Введите сообщение")
{
RichEdit1->Lines->Clear();
}

if (RichEdit1->Text == "Введите сообщение")
{
  RichEdit1->Lines->Clear();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(RichEdit1->Text.Trim() == "Введите сообщение")
   RichEdit1->Clear();
}

void __fastcall TForm1::Button4Click(TObject *Sender)
{
String FileName;
if (SaveDialog1->Execute())
RichEdit2->Lines->SaveToFile(FileName );
}