请问如何用query1的控件来写动态的报表！谢谢

请问如何用query1的控件来写动态的报表！谢谢
例如：
with datamodule2.ADOQuery1  do
       begin
        datamodule2.ADOQuery1.Close;
        datamodule2.ADOQuery1.SQL.Clear ;
        datamodule2.ADOQuery1.SQL.Add('select sp_id,name,barcode,hsfs from spxx ');
            try
               datamodule2.ADOQuery1.Open;              
                except
                showmessage('不能打开数据库！！！');
                end;
                end;
                if datamodule2.ADOQuery1.RecordCount=0 then
                begin
                        showmessage('没有您要查询的数据，请确认您输入的查询内容是否存在！！！');
                end;       form4.QRDBText1.DataSet:= datamodule2.ADOQuery1;
       form4.QRDBText2.DataSet:= datamodule2.ADOQuery1;
       form4.QRDBText3.DataSet:= datamodule2.ADOQuery1;
       form4.QRDBText4.DataSet:= datamodule2.ADOQuery1;
       
       form4.QRDBText1.DataField:= datamodule2.ADOQuery1.FieldValues[0];
       form4.QRDBText1.DataField:= datamodule2.ADOQuery1.fieldbyname('SP_ID').AsString ;
       form4.QRDBText2.DataField:= datamodule2.ADOQuery1.fieldbyname('NAME').AsString ;
       form4.QRDBText3.DataField:= datamodule2.ADOQuery1.fieldbyname('BARCODE').AsString ;
       form4.QRDBText4.DataField:= datamodule2.ADOQuery1.fieldbyname('HSFS').AsString ;
       就是form4.QRDBText4.DataField的DataField如何动态的指定