[Firemonkey] Canvas als PNG mit Transparenz speichern

[milos]

Hallo,

ich habe eine Firemonkey anwendung bei der der User auf ein TImage Canvas Zeichnen kann.
Wie kann ich diese nun als PNG speichern lassen ohne das ich die Transparenz auf der nicht gezeichneten Fläche verliere?

Freundliche Grüsse

Edit:
Ich hätte eigentlich gedacht das es so funktionieren sollte:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  LBitmap : TBitmap;
begin
  Image1.Bitmap.SaveToFile('./tmp.bmp');
end;

procedure TForm1.Image1Paint(Sender: TObject; Canvas: TCanvas;
  const [Ref] ARect: TRectF);
begin
  Canvas.Fill.Color := $ffff0000;
  Canvas.FillRect(RectF(0,0,50,50),0,0,[],1);
end;

Aber hier wird mir nur eine leere bmp datei abgespeichert :/