TBitmap32 als PNG speichern (PNGDelphi)

[And1.G]

Ist es möglich, ein TBitmap32 mitsamt Transparenz mit PNGDelphi als PNG zu speichern?

Hab mir schon probiert, eine Funktion zu basteln, die das erledigen soll, haut aber nicht hin...

Delphi-Quellcode:

procedure SaveBitmap32toPNGFile(SrcBitmap32: TBitmap32; Filename: String);
var
  PNGObject: TPNGObject;
begin
  PNGObject := nil;
  try
    PNGObject := TPNGObject.Create;
    PNGObject.Canvas.Handle := SrcBitmap32.Canvas.Handle;
    PNGObject.SaveToFile(Filename);
  finally
    if Assigned(PNGObject) then PNGObject.Free;
  end;
end;

Aufgerufen wird das ganze mit dem Bitmap eines TImage32, was auf der Form liegt und auch ein Bild beinhaltet.
Es wird auch eine PNG Datei erstellt, allerdings 8Byte groß und nur mit Header...
Und ich hab das dumpfe Gefühl, da würde die Transparenz auch nicht mitkopiert werden, fals es denn funktionieren würde...

Hat jemand eine Idee wie man das lösen könnte?