R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-Frx.Engine.FreeSpace)+R1;P:=TfrxReportPage(Frx.Pages[SequencePage]);P.PaperHeight:=R;end;
