如何在RAVE报表中设置转换人民币大写？已有大写代码

function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围
const
    cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
    cCha:array[0..1, 0..12]of string =
                                (( '零元','零拾','零佰','零仟','零万','零亿','亿万',
                                '零零零','零零','零万','零亿','亿万','零元'),
                                ( '元','零','零','零','万','亿','亿',
                                '零','零','万','亿','亿','元'));
var
    i : Integer;
    sNum,sTemp : WideString;
begin
    result :='';
    sNum := format('%15d',[round(n * 100)]);
    for i := 0 to 14 do
    begin
        stemp := copy(snum,i+1,1);
        if stemp=' ' then
            continue
        else
            result := result + cNum[strtoint(stemp)+1] + cNum[i+13];
    end;
    for i:= 0 to 12 do
        Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
    if pos('零分',result)=0 then
        Result := StringReplace(Result, '零角', '零', [rfReplaceAll])
    else
        Result := StringReplace(Result, '零角','整', [rfReplaceAll]);
    Result := StringReplace(Result, '零分','', [rfReplaceAll]);
end;