Delphi中如何进行BASE64解码

//方法1：
    uses
         EncdDecd;


 Memo2.Text:=UTF8Decode( DecodeString(Memo1.Text));




//方法2：
//   使用控件  

   
  Memo2.Text:=IdDecoderMIME1.DecodeString(Memo1.Text);