Delphi中如何进行BASE64解码

用Delphi获取其它系统的数据时，由于一些敏感信息不能以明文的形式进行存储，所以在获取到数据后，数据一般都是密文！
如何解密主要按照服务器端的加密顺序逆序进行解密！
一般情况下，服务器端对敏感信息都要先进行加密(使用某种加密算法如:BlowFish,AES等)，而后对其进行Base64编码！
如果要想解密，第一个步骤就是要在Delphi端我们就要先对其进行Base64解码。
在Delphi中如何进行Base64解码呢？
方法1：
uses
EncdDecd;
DecodeString();
方法2：
使用控件 IdDecoderMIME1.DecodeString();
例1：
在接收邮件后会得到如下字符串：

=?UTF-8?B?QUQg5ZOBwrfoh7Qg5qCH6Ie055Sf5rS7IDHmnIg=?=

这个字符串的格式是这样的：=?汉字编码?内容编码?内容?=
当汉字编码为UTF-8，内容编码为Base64，字符串的格式就是：=?UTF-8?B?内容?=
解码时，就是对内容先进行Base64解码，然后再进行汉字编码转换(UTF-8转程序所使用的汉字编码)。

UTF8Decode(DecodeString('QUQg5ZOBwrfoh7Qg5qCH6Ie055Sf5rS7IDHmnIg='))