如何在fastreport中添加函数(高分)(200分)

请教大虾:
我现在用fastreport写报表,需要定义一些新的函数,如何在里面写?
最好要举个例子! 急~~~~~~~~~~~~~~~~~~

http://delphibbs.com/delphibbs/dispq.asp?lid=1685081

谢谢你,已经成功了,不过,我对里面的参数不太理解,请详细说说
procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2,
p3: Variant;
var Val: Variant);

Name是函数名
p1,p2,p3是参数
val是返回值

接受答案了.

非常感谢,可是我现在还有个问题如下:
function TForm1.CUpperCase(Value: integer): string;
begin
...
end;

procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2,
p3: Variant;
var Val: Variant);
begin
if Ansicomparetext('CUpperCase',name) = 0 then
Val:=CUpperCase(p1);
end;

我在报表中调用为: [CUpperCase(12345)]时正确
可是为 : [CUpperCase(ADOTable1."gz")]时老是报错
ADOTable1."gz"是表中字段值
不知道该如何调用!!! 急~~~~~~~~~~~