Hola cincosoft.
Es que no podes cambiar el valor del tamaño de la imágen almacenada,
ImagenJPG (al menos no de este modo):
Código Delphi
[-]
ImagenJPG.Width := round((AnchoOriginal*ImagenJPG.Height)/AltoOriginal);
Lo que sí podés hacer es cambiar el tamaño de visualización de la misma,
QRImage:
Código Delphi
[-]
QRImage.Width := round((AnchoOriginal*ImagenJPG.Height)/AltoOriginal);
Saludos.