indy base64 encode decode

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  IdBase64Encoder1->CodeString(Memo1->Text);
  AnsiString s = IdBase64Encoder1->CompletedInput();
  int pos = s.Pos(";");
  Memo2->Text = s.SubString(pos+1,s.Length()-pos);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  IdBase64Decoder1->CodeString(Memo2->Text);
  AnsiString s = IdBase64Decoder1->CompletedInput(); // 如果不符合Base64规则，报错（Coding table entry not found）
  int pos = s.Pos(";");
  Memo2->Text = s;
  Memo3->Text = s.SubString(pos+1,s.Length()-pos);
}
//---------------------------------------------------------------------------