fastreport4.2自定义函数的问题

[lt2000]

fastreport4.2自定义函数定义后不起作用，如下：

procedure TFrmReportDesigner.FormCreate(Sender: TObject);
var StrList :TStrings;
begin
frxReport1.Script.AddMethod('CurrencyToChinese(Money:Double)',CallMethod,'自定义函数','金额转换成汉字大写');
end;



function TFrmReportDesigner.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; var Params: Variant): Variant;
begin
if UpperCase(MethodName) = 'CURRENCYTOCHINESE' then
begin
Result := CurrencyToChinese(Params[0]);
end;
end;

[fonganzen]

procedure TFrmReportDesigner.FormCreate(Sender: TObject);
var StrList :TStrings;
begin
frxReport1.AddFunction('function 'CurrencyToChinese(Money:Double)'); end;

function TForm1.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if UpperCase(MethodName) = 'CURRENCYTOCHINESE' then
begin
Result := CurrencyToChinese(Params[0]);


end;