帮忙看看这个程序，数字转汉字的问题！

Question

function TForm1.DigitToCh(Digit:String):String;
var
    digitlen:Integer;//输入数值长度
    geDigit:String;//基本汉字字串
    quan:String;//权
    p:String;//
    toDigit:Integer;//字符－＞数值
    tmpDigit:String;//临时串
    tmpQuan:String;//临时串
begin
    geDigit:='○一二三四五六七八九';
    quan:='  十百千万';
    digitlen:=length(Digit);
    toDigit:=StrToInt(Digit);
    if digitlen=1 then
    begin
        p:=Copy(geDigit,toDigit*2+3,2);
        tmpQuan:=Copy(quan,digitlen*2-1,2);
        DigitToCh:=p+tmpQuan;
    end
    else
    begin
        tmpDigit:=RightStr(Digit,digitlen-1);
        DigitToCh+:=DigitToCh(tmpDigit);
    end;
end;