Загрузка картинки в sAlphaImageList

[artemavd]

Всем добрый день!
Мне нужна помощь с вопросом одним.
Вообщем, есть исходная картинка в формате BMP, например.
Ее размер нужно уменьшить до фиксированного и сохранить в формате PNG.
Все это работает, код ниже.
Но, суть в том, что мне надо потом программно загрузить полученную PNG картинку в sAlphaImageList3 и присвоить кнопке. Проблема в том, что на кнопке у загруженной картинке имеется черный фон, т.е. как бы прозрачности нет
Прошу помощи в том, чтобы картинка загружалась в sAlphaImageList3 c сохранением прозрачности?

  
 img:=TPicture.Create;
 tBMP:=TBitmap.Create;
 pic:=TBitmap.Create;
 img.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'test.bmp');
  tBMP.Assign(img.Graphic);
  pic.Width:=150;
  pic.Height:=94;
  pic.Canvas.StretchDraw(Rect(0,0,pic.Width,pic.Height),tBMP);
  pic.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test.bmp');

  BMPToPNG(ExtractFilePath(ParamStr(0)) + 'test.bmp',
           ExtractFilePath(ParamStr(0)) + 'test.png');
  Form_Main.sAlphaImageList3.Add(pic,nil);

  tBMP.Free;
  pic.Free;
  img.Free;

Код перевода изображения из BMP в PNG:

procedure BMPToPNG(const Source,Dest: string);
var
 Bitmap: TBitmap;
 PNG: TPNGObject;
begin
 Bitmap:=TBitmap.Create;
 PNG:=TPNGObject.Create;
 try
  Bitmap.LoadFromFile(Source);
  PNG.Assign(Bitmap);
  PNG.SaveToFile(Dest);
 finally
  Bitmap.Free;
  PNG.Free;
 end;
end;

[kutani]

...перед сохранением в PNG:

png.Transparent:= True;

не помогает?