//OnCreate
frxReport1.AddFunction('function MoneyCn(mmje: Double): String;', 'Myfunction', '小写金额转大写的函数');
//Frxreport.OnUserFunction
if UpperCase(MethodName) = UpperCase('MoneyCn') then
Result := MoneyCn(Params[0]);
//声明函数
function TReports.MoneyCn(Value: Currency): string;
begin
………………
end;