Delphi2010下的小写金额转大写的函数

function ToBigRMB(Num: Currency): String;
const
  BigNumber='零壹贰叁肆伍陆柒捌玖';
  BigUnit='万仟佰拾亿仟佰拾万仟佰拾元';
       {共可表示13位金额}
var
  nLeft, nRigth, lTemp, rTemp, BigNumber1, BigUnit1, RMB,s: string;
  I: Integer;
begin  {取整数和小数部分}
  RMB := FormatCurr('0.00', Num);
  nLeft:=copy(RMB, 1, Pos('.', RMB) - 1);
  nRigth:=copy(RMB, Pos('.', RMB) + 1, 2);
    {转换整数部分}
  if nLeft<>'0' then
    for I:=1 to Length(nLeft) do
    begin
      BigNumber1:=copy(BigNumber, StrToInt(nLeft[I]) + 1, 1);
      BigUnit1:=copy(BigUnit, (Length(BigUnit) - Length(nleft) + I - 1) + 1, 1);
      s := copy(lTemp, Length(lTemp)-1, 1);
      if (BigNumber1='零') and (s='零') then
        lTemp:=copy(lTemp, 1, Length(lTemp) - 2);
      if (BigNumber1='零') and ((BigUnit1='亿') or (BigUnit1='万') or (BigUnit1='元')) then
      begin
        BigNumber1:=BigUnit1;
        if BigUnit1<>'元' then
          BigUnit1:='零'
        else
          BigUnit1:='';
      end;
      if (BigNumber1='零') and (BigUnit1<>'亿') and (BigUnit1<>'万') and (BigUnit1<>'元') then
        BigUnit1:='';
      lTemp:=lTemp + BigNumber1 + BigUnit1;
    end;

  lTemp:=StringReplace(lTemp, '亿万', '亿', [rfReplaceAll]);
  lTemp:=StringReplace(lTemp, '零零', '零', [rfReplaceAll]);
  lTemp:=StringReplace(lTemp, '零元', '元', [rfReplaceAll]);

  {转换小数部分}
  if StrToInt(nRigth[1])<>0 then
    rTemp:=copy(BigNumber, StrToInt(nRigth[1]) * 1 + 1, 1) + '角';
  if StrToInt(nRigth[2])<>0 then
  begin
    if (nLeft<>'0') and (StrToInt(nRigth[1])=0) then
      rTemp:='零';
    rTemp:=rTemp + copy(BigNumber, StrToInt(nRigth[2]) * 1 + 1, 1) + '分';
    RMB:=lTemp + rTemp;
  end
  else
    RMB :=lTemp + rTemp + '整';
  Result := RMB;
end;