Fórum Criar nova página QuickReport, erro Access Violation #348372

procedure TForm1.BitBtn3Click(Sender: TObject);
var Lbl:TQRLabel;
i,k: integer;
begin
with Unit2.Form2.QuickRep2 do
begin
k := 1;
for i := 1 to 100 do
begin
Lbl := TQRLabel.Create(Self);
Lbl.Parent := Bands.TitleBand;
Lbl.AutoStretch := True;
Lbl.Font.Name := ´Arial´;
Lbl.Font.Size := 10;
Lbl.Top := 2*Lbl.Font.Size*(k-1);
Lbl.Left := 20;
Lbl.Caption := ´Test ´+IntToStr(i);
Inc(k);
if (i mod 50) = 0 then
begin
NewPage;
k := 1;
end;
end;
Preview;
end;
end;

Quando executo a rotina acima apresenta ´access violation´ quando chega no momento da acrescentar nova pagina , algum poderia me ajudar a resolver esse problema?