在delphi7上正常使用的一个函数，移植到XE上使用，为什么会值不对？

我下面的人民币转换成为大写函数在D7上是正确的，到了Xe下得到的值完全乱套了。请问大虾们是哪里出了问题？要怎么改呢function rmb2dx(rmbje:Double):String; // 人民币转换成为大写
const
 s1:String='零壹贰叁肆伍陆柒捌玖';
 s2:String='分角圆拾佰仟万拾佰仟亿拾佰仟万';
var
 s,dx:String;
 i,Len:Integer;
 function StrTran(const S,S1,S2:String):String;
 begin
  Result:=StringReplace(S,S1,S2,[rfReplaceAll]);
 end;
begin
 if rmbje<0 then
  begin
   dx:='负';
   rmbje:=-rmbje;
  end;
 s:=Format('%.0f',[rmbje*100]);
 Len:=Length(s);
 for i:=1 to Len do
  dx:=dx+Copy(s1,(Ord(s[i])-Ord('0'))*2+1,2)+Copy(s2,(Len-i)*2+1,2);
 if dx='' then result:='零分整'
 else result:=dx+'整';
end;