请教如何解码用MIME/Base64编码的jpg图片？(200分)

感兴趣者可以发言（分数见着有份，严禁灌水）：
今天碰到一个问题，俺从邮箱中读出了邮件的ASCII内容，并成功解码出了用Base64编码的文本内容，但是不知道如何分离出用Base64编码的jpg格式图片！告急！！！

用encddecd 单元 中的decodestring解码.就可以了
格式很简单原型是:decodestring(const input:string);
代码:
var
ams:tmemorystream;
ass:tstringstream;
begin
ass:=tstringstream.create(decodestring(xx));//xx代表你取得的Base64编码变量
ams:=tmemorystream.create;
try
ams.loadformstream(ass);
ams.savetofile('xxx.jpg');//文件名和路径由你自己决定
finally
ass.free;
ams.free;
end;
end;