fazr um a contagem de paginas a serem inpressar para a impre

Oi, olhe oi faco de uma maneira bem simple, mas é porque no meu caso cada registro é uma pagina aí eu apenas conto os registros.

no BeforePrint do Detail
label1.caption:´Enviando ´+inttostr(query1.recno)+ ´ De ´+inttostr(query1.recordcount)+´ Para Impressora´;
application.processmessages;//força o label mostrar na hora.

Té + V