fastReport 自定义函数出错，请高手指教

根据：http://blog.csdn.net/SmallHand/article/details/4430493 介绍的方法
测试结果出错：
function TForm1.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
begin
  if UpperCase(MethodName) = UpperCase('MoneyToCn') then
  Result := MoneyToCn(Params[0]);//《---在这里出错
end;

错误提示：
Could not convert variant of type (Array Variant) into type (Double)

请问原因在哪里？如何解决？

我的环境：
Delphi 2006
FastReport 4.9.108(BUILD 2010-08-23)

MoneyToCn要求参数应该是double类型吧，你需要把Params转为double