Alpha-PNG zur Laufzeit in eine TImageList laden (XE2)

[Bummi]

einen Versuch hätte ich noch anzubieten

Delphi-Quellcode:

var
 ico:TIcon;
begin
 ico:=TIcon.Create;
 try
   LoadPNGAsIcon('C:\Bilder\IconCollection\ix_ap_all\32x32\shadow\about.png',ico);
   imagelist1.AddIcon(ico);
   Action1.ImageIndex := 0;
   Speedbutton1.Action := Action1;

 finally
   ico.Free;
 end;
end;

mit der Routine von hier