TBitmap32 SaveToFile PNG...Wie?

[torud]

Hallo Wissende,

folgender Code schlägt leider aufgrund Inkompatibilität fehl. Wie muss ich´s machen, damit es funzt, samt Transparenz?

Delphi-Quellcode:

var
  myPng : TPngObject;
begin
  myPng := TPNGObject.Create;
  myPng.Assign(img_btn_design.Bitmap);
  myPng.SaveToFile(App_Pfad + 'sample.png');
  myPng.Free;
end;

Dem Bitmap32 wurde vorher ein PNG mit Transparenzen übergeben. Anschliessend wurde auf dem Bitmap Text gerendert und nun soll das Bitmap wieder als transparentes PNG gespeichert werden. Benutzt wurden die GraficEx-Komponenten...

Tipps, Hinweise?