Ayuda con guardado de imagen

[yulexis.boza]

Saludos a todos.
Estoy usando Delphi Berlín y hace días me estoy rompiendo la cabeza con el siguiente problema.
Estoy cargando una imagen en un TImageViewer para luego guardarla con un nuevo nombre. Para esto utilizo SaveToFile como hasta ahora lo he realizado cuando de guardar imagen se trata.
El problema se me da porque la imagen guardada no tiene el mismo tamaño que la original. Incluso si miro en las propiedades de cada una hay diferencia en cuanto a resolución.

Por qué sucede esto?
Qué debo hacer para que la imagen guardada coincida con la original?

Desde ya gracias.