fastreport分页和空行填充问题

处理时，分页和空行填充是这样的：
var
  PageLine: integer;       //在現在頁列印到第幾行
  PageMaxRow: integer=15;  //設定每頁列數

procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
  PageLine := <line> mod PageMaxRow;
  if (PageLine = 1) and (<line> > 1) then
    Engine.newpage;
end;

procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
var
  i: integer;
begin
  i := iif(PageLine=0, PageMaxRow, PageLine);
 if i=0 then
   exit;
  while i < PageMaxRow do begin
    i := i + 1;
    Engine.ShowBand(DetailData1);  //印空白表格DetailData1是明细数据控件
  end;
end;
每页15行，不到15行时自动填充空行，但是报表程序一运行，程序就退出了，分页我单独试了，可以正常运行。但是空行填充加进去就会出现这个问题。