[chutipascal]

Prueba esto

(variable global)
Paginas integer;
procedure TFprdiar.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
   Paginas:=0;
end;


procedure TFprdiar.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
  inc(Paginas);
end;

De todas formas creo que tienes algo que no funciona correctamente, deberia colocarse en lastpage la ultima pagina...