？简单有关问题，怎么在FastReport 中写事件代码？

？？简单问题，如何在FastReport 中写事件代码？？
在Form中有frxReport1，ADOQuery1，frxDBDataset1控件，请问如何在frxDBDataset1beizhu 的OnBeforePrint针对数据集frxDBDataset1做一个循环，写成如下这种形式，必须要在此事件中写
ADOQuery1，frxDBDataset1为相关联的数据集

procedure frxDBDataset1beizhuOnBeforePrint(Sender: TfrxComponent);
var
i:integer;                      
begin
       for  i:=1    to   。。。
        begin
          
           。。。.Next;
       end;
end;
[解决办法]
frDBDataSet1.DataSet.RecordCount