Mira este enlace
http://www.efg2.com/Lab/ImageProcessing/AspectRatio.htm
Puedes usar un QRImage en vez de QRDBImage. QRDBImage sólo carga las imágenes que estén en la BD y no permite modificarlas y una llamada parecedida a:
QRImage1.Picture.Assign(AjustarImagen(Image1.Picture.Bitmap))
cuando vayas a imprimir. Evidentemente "AjustarImagen" es una función que tendrías que adaptar según lo que quieras hacer.
Saludos