void __fastcall TForm1::Button1Click(TObject *Sender)
{
this->IdBase64Encoder1->CodeString(Edit1->Text);
Edit2->Text = this->IdBase64Encoder1->CompletedInput();
Edit2->Text = this->Edit2->Text.Delete(1,2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
this->IdBase64Decoder1->CodeString(Edit2->Text);
Edit1->Text =this->IdBase64Decoder1->CompletedInput();
Edit1->Text = this->Edit1->Text.Delete(1,2);
}