fastreport 2.5 我想根据情况随时换页(2分)

大家有什么好办法在
procedure TForm1.frReport1GetValue(const ParName: String;
var ParValue: Variant);
VAR
I,J:INTGER
begin
J:=1;
FOR I:= 0 TO COUNT-1do
begin
J:=J+1;
IF J = 5 then
begin
`` 换到下一页 ;
J:=0;
end;
if AnsiCompareText(ParName, 'L'+ INTTOSTR(I)) = 0 then
ParValue := StringGrid2.Cells[I,fruserdataset1.RecNo+1];
end;
中调用哪个函数可以对当前报表换页？

frreport1.Pages.Pages[1].NewPage;