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

[Bummi]

ich habe gerade nur D2010 zur Hand, folgendes funktioniert bei Dir nicht?

Delphi-Quellcode:

var
  PNG: TPngImage;
  BMP: TBitmap;
begin
  PNG:= TPngImage.Create;
  BMP:= TBitmap.Create;
  try
    PNG.LoadFromFile('.......\xyz.png');
    bmp.Assign(png);
    Imagelist.Add(bmp,nil);
  finally
    PNG.Free;
    BMP.Free;
  end;
end;