Error incompatibles types:'integer' and 'extended'

[ecfisa]

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.