TCamera.PaintToBitmap

[olalla]

Hola buenos días.
¿Sabe alguien como utilizar el método PaintToBitmap de una cámara en FireMonkey?
Estoy tratando de hacer un "snapshot" (o captura) de un ViewPort3D pero no logro nada:

Tengo un form ("MiForm") con un ViewPort3D ("ViewPort3D1") en el que hay un texto3D ("Text3D1") mostrado desde la perspectiva de la cámara "Camera1":

Código Delphi [-]
  TMiForm = class(TForm)
    Viewport3D1: TViewport3D;
    Light1: TLight;
    Text3D1: TText3D;
    Image1: TImage;
    Button2: TButton;
    Camera1: TCamera;
    procedure Button2Click(Sender: TObject);
  end;

Al pulsar el botón ("Button2") hago que se muestre el contenido de la vista de la camara en un TImage que tengo en el formulario ("Image1") y además que se grabe en el archivo "prueba.gif".

Código Delphi [-]
procedure TfrmAbout.Button2Click(Sender: TObject);
begin
Camera1.PaintToBitmap(Image1.Bitmap,1000,1000,1);
Image1.Bitmap.SaveToFile('prueba.gif');
end;

Lo que ocurre es que en el TImage no se muestra nada y el gif que se graba correctamente está vació (transparente)......
He probado con todos los parámetros del PaintToBitmap y un montón de valores pero nada....
¿?

Gracias y un saludo.