이벤트를 어디서 사용하셨는지 모르겠네요...
QuickRep1의 OnNeedData 이벤트를 사용해보세요

<!--CodeS-->
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  pri_idx := 1;  // 인덱스 카운트
  pri_max := 2;// 최대 입력값

  // 값에 관한 부분은 BeforePrint나 레포트를 출력전에 외부에서 연산하시구요...
  SList := TStringList.Create;
  SList.Delimiter:='|';
  SList.DelimitedText:=Param1;
end;

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  if pri_idx <= pri_max then
  begin
    MoreData := True; // 추가 데이터가 있음
    DetailBand1.ForceNewPage := True;
  end
  else begin
    MoreData := False; // 추가 데이터가 없음
    DetailBand1.ForceNewPage := False;
  end;

  if pri_idx = 1 then
  begin
    lbl_p_code1.Caption := SList[1];
    lbl_p_code2.Caption := SList[2];
    lbl_p_code3.Caption := SList[3];
    lbl_p_code4.Caption := SList[4];
    lbl_p_code5.Caption := SList[5];
  end
  else begin
    lbl_p_code1.Caption := SList[6];
    lbl_p_code2.Caption := SList[7];
    lbl_p_code3.Caption := SList[8];
    lbl_p_code4.Caption := SList[9];
  end;

  Inc(pri_idx);
end;

<!--CodeE-->