procedure TForm1.btnCodeClick(Sender: TObject);
begin
  // Exemple d'utilisation d'un AsBarcode
  AsBarcode1.Text := eCode.Text;

  // On met à jour la taille voulue, ici en fonction
  // de la taille du TImage de destination
  AsBarcode1.Top     := 10;
  AsBarcode1.Left    := 10;
  AsBarcode1.Width   := imgCode.Width-20;
  AsBarcode1.Height  := imgCode.Height-20;

  // On dessine le code-barres
  AsBarcode1.DrawBarcode(imgCode.Canvas);
end;

  TQRCodeBarre = class(TQRprintable)
  private
    { Déclarations privées }
    FAsBarcode:TAsBarcode;
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
    constructor Create(AOwner :TComponent); override;
    destructor Destroy; override;
  published
    { Déclarations publiées }
  end;
...
constructor TQRCodeBarre.Create(AOwner: TComponent);
begin
  inherited;
  FAsBarcode := TASBarcode.Create(Self);
  FAsBarcode.Height := 50;
  FAsBarcode.width := 100;
  FImageID := 0;
end;

destructor TQRCodeBarre.Destroy;
begin
  fAsBarcode.free;
  inherited;
end;

    // Propriétés sotckées dans le composant AsBarcode
    // reportées dans le composant QR pour accès.
    Property BarAngle:Double                        Read GetAngle             Write SetAngle;
    Property BarCheckSum:Boolean                    Read GetCheckSum          Write SetCheckSum;
    Property BarCheckSumMethod:TCheckSumMethod      Read GetCheckSumMethod    Write SetCheckSumMethod;
    Property BarColor:TColor                        Read GetColor             Write SetColor;
    Property BarColorBar:TColor                     Read GetColorBar          Write SetColorBar;
    Property BarModul:Integer                       Read GetModul             Write SetModul;
    Property BarRatio:Double                        Read GetRatio             Write SetRatio;
    Property BarShowText:TBarcodeOption             Read GetShowText          Write SetShowText;
    Property BarShowTextPosition:TShowTextPosition  Read GetShowTextPosition  Write SetShowTextPosition;
    Property BarText:String                         Read GetText              Write SetText;
    Property BarTyp:TBarcodeType                    Read GetTyp               Write SetTyp;

function TQRCodeBarre.GetText: String;
begin
  Result := fAsBarcode.Text;
end;

procedure TQRCodeBarre.SetText(const Value: String);
begin
  fAsBarcode.Text := Value;
  Invalidate;
end;

  protected
    { Déclarations protégées }
    procedure Paint; override;
...

procedure TQRCodeBarre.Paint;
begin
  inherited;
  FAsBarcode.Width  := Width;
  FAsBarcode.Height := Height;
  FAsBarcode.DrawBarcode( Canvas );
end;

    // Ajustement du composant AsBarcode aux dimensions
    // finales obtenues sur l'impression
    FAsBarCode.Left   := QRPrinter.XPos(OfsX + Size.Left);
    FAsBarcode.Top    := QRPrinter.YPos(OfsY + Size.Top);
    FAsBarcode.Width  := QRPrinter.XPos(OfsX + Size.Width + Size.Left)-QRPrinter.XPos(OfsX + Size.Left);
    FAsBarcode.Height := QRPrinter.YSize(Size.Height);

  protected
    { Déclarations protégées }
    procedure Print(OfsX, OfsY : integer); override;
...

procedure TQRCodeBarre.Print(OfsX, OfsY: integer);
begin
  if ParentReport.FinalPass and IsEnabled then
  begin
    // Ajustement du composant AsBarcode aux dimensions
    // finales obtenues sur l'impression
    FAsBarCode.Left   := QRPrinter.XPos(OfsX + Size.Left);
    FAsBarcode.Top    := QRPrinter.YPos(OfsY + Size.Top);
    FAsBarcode.Width  := QRPrinter.XPos(OfsX + Size.Width + Size.Left)-QRPrinter.XPos(OfsX + Size.Left);
    FAsBarcode.Height := QRPrinter.YSize(Size.Height);

    // On demande au composant de s'imprimer
    FAsBarcode.DrawBarcode( QRPrinter.Canvas );
  End;
end;

    // Création d'un TQrGrImage
    GrImage := TQRGrImage.Create(Nil);
    Try
      // On donne un nom unique au composant créé 
      Inc(FImageID);
      GrImage.Name := 'QRCBExport'+IntToHex(FImageID,8);
      // On adapate le QrGrImage à la taille de l'AsBarcode
      GrImage.Picture.Bitmap.Width := FAsBarcode.Width;
      GrImage.Picture.Bitmap.Height := FAsBarcode.Height;
      GrImage.AutoSize := True;
      // On demande à l'AsBarcode de se dessiner sur le composant
      FAsBarcode.DrawBarcode(GrImage.Picture.Bitmap.canvas);
      // Et c'est le composant que l'on exporte
      TQRExportFilter(ParentReport.ExportFilter).acceptgraphic(
                            QRPrinter.XPos(OfsX + self.Size.Left),
                            QRPrinter.YPos(OfsY + self.size.top ), GrImage );
    Finally
      GrImage.Free;
    End;

  protected
    { Déclarations protégées }
    procedure Prepare; override;
...
procedure TQRCodeBarre.Prepare;
begin
  inherited;
  FImageID:=0;
end;