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;原文：http://www.cnblogs.com/xe2011/p/3876031.html