Здравствуйте, Рафик, Вы писали:

Р>dl:=StrToInt(QRLabel1.Caption);
Р>dl:=dl+1;
Р>QRLabel1.Caption:=IntToStr(dl);
епстественно,
а если так
в OnPrint

 Value:=IntToStr(PageNumber);

а уж в зависимости от PageNumber, решать, показать номер листа или нет