TJpegImage对象装载非jpeg 类型文件,如何屏蔽错误?

Question

代码如下:procedure TForm1.Button1Click(Sender: TObject);
var
  JPG:Tjpegimage;
begin
   JPG:=TJpegimage.Create;
   try
      try
         JPG.LoadFromFile(filename);
         //filename是一个全局变量,存储图像文件的文件名，
         // 但文件类型有可能不是jpeg 格式。
      except
         showmessage ('图像格式错误!');
      end;
      Image1.Picture.Assign(JPG);  
   finally
      JPG.Free;
   end;
end;当文件类型不是jpeg 格式时,会另外弹出一个错误框,显示"ejpeg error"!
请问该如何屏蔽这个错误?

Answer 1

to rikky
   
  就是在运行可执行程序出现的问题。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  JPG:Tjpegimage;
begin
   JPG:=TJpegimage.Create;
   try
      try
         JPG.LoadFromFile(filename);
         //filename是一个全局变量,存储图像文件的文件名，
         // 但文件类型有可能不是jpeg 格式。
      except
         showmessage ('图像格式错误!');
         exit;//加上这句，虽然提示，但是继续执行后面的
      end;
      Image1.Picture.Assign(JPG);  //是这句出的错！JPG是空的！
      
   finally
      JPG.Free;
   end;
end;