Please use Print method of a barcode component to print the barcode symbol to paper. The TImage control isn't required.
Printer.BeginDoc;
... { Print other content }
Barcode2D_QRCode1.Print('1234567890', clBlack, clWhite, true, 20, 20, 0.3);
... { Print other content }
Printer.EndDoc;
or
Printer.BeginDoc;
... { Print other content }
with Barcode2D_QRCode1 do
begin
ShowQuietZone := true;
BarColor := clBlack;
SpaceColor := clWhite;
Barcode := '1234567890';
Print(20, 20, 0.3);
end;
... { Print other content }
Printer.EndDoc;