Puedo usar un TImage para estirar una imagen?

[Cheerpipe]

Hola a todos.

Bueno, tengo una duda bastante simple, creo, necesito tomar una imagen (un codigo de barra) y estirarla de forma vertical (aumentar su altura) en 4 veces, asi ke para no tener que jugar con los piexeles se me ocurrio cargarla a un TImage, y luego estirarla con la propiedad Strched, he aqui un ejemplo:

Código Delphi [-]
if not OpenDialog1.Execute(handle) then exit; //Busco la imagen

Image1.Stretch:=False;    //Seteo
image1.AutoSize:=False;  //Seteo
Image1.Picture.LoadFromFile(OpenDialog1.FileName);  //Cargo la imagen
image1.AutoSize:=True;  //Ajusto el TImage al tamaño de la imagen
image1.AutoSize:=False; //Desactivo el ajuste automatico
Image1.Height:=Image1.Height*4;   //Aumento la altura del TImage
Image1.Stretch:=True;  //Estiro la imagen del TImage

En forma visual, esto produce el efecto que deseo, pero al guardar la imagen con Image1.Picture.LoadFromFile lo que obtengo en el nuevo archivo, es la imagen original, no la estirada, mi pregunta es. ¿Como puedo guardar en un fichero la imagen estirada que es la que se ve y no la imagen que cargue originalmente?


De antemano gracias

[[cHackAll]]

Usa CopyRect o StretchDraw