Otra alternativa:
Colocar un TQRExpr llamada PageNum en la banda que quieras mostrar ( FooterBand en mi caso).
En la propiedad Expression colocar 'Página ' + STR(PAGENUMBER) + ' / '
Código Delphi
[-]
...
Form1.Reporte.Prepare;
i := Form1.Reporte.QRPrinter.PageCount;
Form1.PageNum.Expression := Form1.PageNum.Expression + '+'+ QuotedStr(intToStr(i)) ;
Form1.Reporte.Preview;
...