将一个Base64字符串转换成jpg图片的方法

假定字符串存储在文本里，如a.txt，转换结果将图片存储在a.jpg，delphi实现代码如下，须应用EncdDecd unit，代码在Delphi6下编译通过：

var
sl:Tstringlist;
buf:string;

begin
sl:=TStringList.Create;
sl.LoadFromFile('d:\a.txt');
buf:=string(sl.GetText);
buf:=DecodeString(buf);
sl.Clear;
sl.Add(buf);
sl.SaveToFile('d:\a.jpg');
sl.Free ;
end;

Xe2上不通过，原因不知道，水平有限。