How to convert icon to png with alpha transparency in delphi?

Question

The code below will extract icon from file and convert it to png but without alpha transparency ?

var
   IconIndex : word;
   icon:TIcon;
   png:TPngImage;
   bm         


        

Answer 1

I found some libraries like PNG Delphi and Delphi PNG and MNG libraries after Googling.