将一个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上不通过，原因不知道，水平有限。