QuickReport - Numero de Paginas

Antes de imprimir o Relatório chame a procedure Prepare, 

ela vai gerar o Relatório primeiro. 

Quando terminar a propriedade PageCount do Objeto

QRPrinter do Report conterá o Total de Páginas do mesmo.