Delphi中使用JPEG图片

这是个"过期"技术问题，我仅作为存档贴出来。以备日后参考。
Delphi中读取JPEG图片可使用TJPEGImage对象，样例代码如下：

var
jpeg :TJpegImage ;

jpeg := TJPEGImage.Create;
try
jpeg.LoadFromFile(FileName);
Image1.Canvas.Draw(0,0,jpeg);
finally
jpeg.Free;
end;