Firemonkey - Inhalte von TLayer3D als Bild speichern - Wie?

[torud]

Jo, das geht zwar, aber krieg einfach nur ein scharzes Bild.

Delphi-Quellcode:

var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  Layer3D1.PaintToBitmap(bmp, 1024, 576, $FF000000);
  bmp.SaveToFile('c:\temp\test.bmp');
  bmp.Free;