Delphi中使用JPEG图片

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

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