Error : Illegal To Call NewPage در هنگام کاذ با QReport

[amin_alexi]

با سلام
من یک برنامه 5 سال پیش برای یکی نوشتم که کتابش رو چاپ می کرد ! (خیلی وقت هم هست که دیگه دلفی کار نمیکنم !)
الان گفته یک تغییر بده !
لازمه که یک جا که به یک شرطی می رسه به صفحه جدید بره !
وفتی متد NewPage رو اجرا می کنم این Error می یاد Error : Illegal To Call NewPage
کد شبیه سازی شده اون رو میزارم
باتن Print رو کی بزنم Error میاد !
چند جور تغییر دا دم و باهاش ور رفتم اما به جایی نرسیدم !
از دوستان کسی هست کمک کنه !؟

کد برنامه : 83232

[amin_alexi]

procedure TForm2.QRBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRStringsBand1.Items.Add(' ');
Inc(PageCount);

While (Number>=PageCount) Do
Begin
While ((PageCount Mod 10 ) <> 0) Do
Begin
LabelCreate(100,100,20 + (PageCount*10),' Line Count '+ IntToStr(PageCount),FALSE,False,FALSE);
Inc(IComponentName);
Inc(PageCount);
END;
Inc(PageCount);
QR.NewPage; ///// ERROR : Illegal To Call NewPage
End;
end;
تو این قسمت Error میده !؟
می خوام وقتی به یک شرط خاصی رسید بره صفحه جدید !!!