레포트 로우를 create 하는 방식으로

var
  FPRA4: TFPRA4;

          J             : Integer;
        //ArQLabel : array[0..5] of TQRLabel;
        ArQLabel        : TQRLabel;
implementation
USES UDM, UCO01, UCO02, UCO03, UCO04, UCO05;
{$R *.DFM}

procedure TFPRA4.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
        J := 0;
        ArQLabel := QRLD01;

end;

procedure TFPRA4.QuickRepNeedData(Sender: TObject; var MoreData: Boolean);
begin
        MoreData := J < A4List.Items.Count ; //리스트박스에 아이템의 갯수만큼 실행시킨다.
end;

procedure TFPRA4.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin

        ArQLabel.Caption := fn_LJ(47,A4List.Items.Strings[j])  + '  |     ' +
                            fn_LJ(47,A4List.Items.Strings[j]); //리스트박스의 아이템을 QLabel에 뿌려준다.
        inc(j);
end;

퀵레포트에서 쓰는방식인데 비슷할거 같은데요.