超简单的问题,在线等待.................................

Question

procedure TForm1.SpeedButton2Click(Sender: TObject);
  var
    bmp1:TBitmap;
    jpg1:TJpegImage;
  begin
    OpenPictureDialog1.DefaultExt:=GraphicExtension(TJpegimage);
    if OpenPictureDialog1.Execute then
       begin
       bmp1:=TBitmap.Create;
       jpg1:=TJpegImage.Create;
    try
       jpg1.LoadFromFile(OpenPictureDialog1.FileName);
       bmp1.Assign(jpg1); 
       Image1.Picture.Bitmap.Assign(bmp1);
    Finally
       jpg1.Free;
       bmp1.Free;
   end;
   end;
 end;
以上代码功能是向image中加图片，在我机器上程序会报错。
   错误提示说：TJpegImage没有定义。
   问题应该怎么解决，是以上代码有问题还是要引用什么类。

Answer 1

要在最上面的Uses里面加上Jpeg