大伙請進，換頁的問題

我近段時間作一報表，因為此表資料內容多變，無規律，格式也抽象不出什
麼來。所以我想到用指針動態生成每個QRLabel把資料貼到DetailBand1上
顯示出來，每增加一行資料，DetailBand1.height都變大一些。當
DetailBand1.height大過一張A4紙高度後，多出的資料沒有在第二頁上顯示，
我的代碼如下：
var current:integer;
......
    new(Plab);
    Plab^:=tqrlabel.Create(self);
    Plab^.Parent:=DetailBand1;
    Plab^.ParentFont :=true;
    Plab^.Top :=Current;
    Plab^.Left :=RowLeft;
    Plab^.Caption :='XXXXXXXXXXXXXXXXXXX';
    current:=current+fieldheight+row;
    DetailBand1.Height :=Current;
    dispose(plab);
    ......
    如果DetailBand1.Height滿頁,就QuickRep1.NewPage ;///////////運行時在QuickRep1.NewPage 出錯。
我不知道用什麼方法換頁，請高手指點。謝謝！