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