[angvelem]

В старых версиях Дельфи PNGObject, в новых PNGImage.

Код:

var
  png, png_a : TPNGImage;

procedure TForm4.FormCreate(Sender: TObject);
begin
  png := TPNGImage.Create;
  png.LoadFromFile('bud256.png');

  png_a := TPNGImage.CreateBlank(COLOR_RGBALPHA, 8, png.Width, png.Height);
  png_a.Assign(png);
  png_a.SaveToFile('bud256_A.png');
end;

другой вариант:

Код:

  Image1.Picture.LoadFromFile('bud256.png');
  png := TPNGImage.Create;
  png.LoadFromFile('bud256.png');
  png.CreateAlpha;
  png.TransparentColor := clWhite;
  png.SaveToFile('bud256_A.png');