Dynamic qrband

[googooli]

چطور میتوان در زمان اجرای کوییک ریپورت qrbandایجاد کرد و یک آبجکت آن را تغییر داد؟
این سوال درپی جواب hr110 سوال من پیش آمد.

[hr110]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
QB : TQRBand;
QL : TQRDBText;
begin
QB:=TQRBand.Create(QuickRep1);
QB.Parent:=QuickRep1;
QB.Height:=120;
QB.Color:=clBlue;

QL:=TQRDBText.Create(QB);
QL.DataSet:=ADOTable1;
QL.DataField:='Area';
QL.AutoSize:=True;
QL.Top:=0;
QL.Parent:=QB;

QuickRep1.Preview;
end;