报表中在一个小问题(100分)

var
  No: Integer;

procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
  No := 0;
end;

procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
  Inc(No);
end;

procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
  Value := Format('本页共%d条记录', [No]);//[red]QRLabel1放在PageFooter里[/red]
end;