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;