TBitmap32 SaveToFile PNG...Wie?

[torud]

So gayts auch, wobei ich da noch nicht gecheckt habe, ob die Transparenzen erhalten bleiben...

Delphi-Quellcode:

var
  myPng : TPngObject;
  myBmp : TBitmap;
begin
  myPng := TPNGObject.Create;
  myBmp := TBitmap.Create;

  myBmp.Assign(img_btn_design.Bitmap);
  myPng.Assign(myBmp);
  myPng.SaveToFile(App_Pfad + 'sample.png');
  myPng.Free;
  myBmp.Free;
end;