显示 png 图片

uses  
pngimage;

{显示 png 图片}
procedure TForm1.Button2Click(Sender:
TObject);
var
  png:
TPngImage;
begin
  png := TPngImage.Create;
  png.LoadFromFile('C:\Temp\Test.png');
  Canvas.Draw(0, 0,
png);
  png.Free;
end;

来自为知笔记(Wiz)