小写金额转换成大写金额的函数

编写一个收费软件时要用到一个小写金额转换成大写金额的函数，我曾在网上找到一个用Powerbuilder写的函数，长达四五十行之巨，后来我自己用DELPHI写了一个函数，寥寥几行代码就搞定：
function TForm1.xTOd(i:Real):string;
const
  d='零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿';
var
  m,k:string;
  j:integer;
begin
  k:='';
  m:=floattostr(int(i*100));
  for j:=length(m) downto 1 do
    k:=k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+
      d[(strtoint(m[Length(m)-j+1])+1)*2]+d[(10+j)*2-1]+d[(10+j)*2];
  xTOd:=k;
end;

调用：
procedure TForm1.Button1Click(Sender: TObject);
var
  Sum:real;
begin
  sum:=12.34;
  showmessage('人民币大写:'+xTOd(Sum));
end;