Problema con tbitmap

[chux]

a ver, basicamente lo que pretengo hacer es cojer el bitmap de un timage, almacenarlo en una variable temporal de tipo TBitmap y a partir de esa variable guardarlo en disco

procedure TForm1.Button2Click(Sender: TObject);
var
 temporal : Tbitmap;
begin
   temporal := TBitmap.Create();
   temporal.Assign(self.Image1.Picture.bitmap);
   temporal.SaveToFile('a.bmp');
end;

El codigo anterior no me da ningun error, sin embargo el archivo que genera, a.bmp, está completamente vacio.

Si el codigo anterior lo implemente en vez de usar un temporal TBitmap uso un TPicture el metodo SaveToFile me guarda la imagen tal cual.

Alguien sabe que estoy haciendo mal?

Un saludo y gracias

[[seoane]]

¿Que tipo de imagen tienes cargada en Image1? Si no es un bitmap la propiedad Bitmap estara vacia. Me explico, si tienes cargada un jpg, al ejecutar esta instruccion:

Código Delphi [-]
temporal.Assign(self.Image1.Picture.bitmap);

estas asignando un bitmap vacio. Una posible solucion seria esta:

Código Delphi [-]
temporal.Assign(Image1.Picture.Graphic);

pero atencion, esto solo sirve si la imagen es un bitmap o un jpg, si es un icono por ejemplo no serviria. Date una vuelta por la seccion trucos, encontraras un par dedicados a la conversion ente formatos graficos, y esta mal que lo diga yo, pero funcionan de maravilla

PD: Recuerda que debes eliminar todos los objetos que creas en tiempo de ejecucion.

[chux]

Mil gracias