Hi,
mir ist noch nicht ganz klar, wieso ein Fehler auftritt.
Wenn das Bitmap leer ist, sollte einfach nichts gedruckt werden.
Aber du kannst auch das Bitmap im QRImage mit FreeImage leeren.
Delphi-Quellcode:
if not Image1.Picture.Bitmap.Empty then
Form1.QRImage1.Picture.Bitmap.Assign(Image1.Picture.Bitmap)
else
if not Form1.QRImage1.Picture.Bitmap.Empty then
Form1.QRImage1.Picture.Bitmap.FreeImage;
Frank