[cristianclc]

LblCB[numLbl]:= TQRBarcode.Create(DetailBand1);
with LblCB[numLbl] do begin
Parent := DetailBand1;
Autosize := FALSE;
Top := 10;
Left := 20;
Visible := TRUE;
Enabled := TRUE;
Barcode := '123456'
Paint;
end;