UTF-8的Base64如何转码

UTF-8的Base64如何转码
写一个收邮件的程序，标题要Base64解码。我看网上的写了一个解GB2312的函数，可以用，但碰到UTF-8编码的就不行。
然后我又找到一个说是能解UTF-8的：：到底是我的字符串有问题还是函数有问题？我用的是Delphi7

tips:那个邮件是从手机客户端发出的

需要截一下头文件吧, 以前做收发邮件程序时,记得需要头文件中包含编码格式, 然后才是邮件内容

头文件已经截到了，但idMessage.Subject收到的是上面那个Base64字符串，现在要将它解码

function TForm1.Base64Decode(strInput:string):string; var  strDecode:string;   posStart:Integer;   posEnd:Integer;   tmp:string; begin  while pos('=?utf-8?b?',lowercase(strInput))>0 do  begin    try      posStart:=pos('=?utf-8?b?',lowercase(strInput));       posEnd:=pos('?=',lowercase(strInput));       strDecode:=strDecode+copy(strInput,1,posStart-1);       tmp:=copy(strInput,posStart+10,posEnd-posStart-11);//原来写成了posStart+11,因为代码是从解GB2312那个过程拷贝过来的，没注意改，改成posStart+10就行了       strDecode:=strDecode+DecodeString(tmp);       strInput:=copy(strInput,posEnd+2,length(strInput)-posEnd-1);     finally      Application.ProcessMessages;     end;   end;   strDecode := strDecode + strInput;   result := strDecode; end;