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

代码如下:

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"!
请问该如何屏蔽这个错误?

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);
except
end;
JPG.Free;
end;

to 木子
不行啊，还是有错误框。

在Delphi菜單上選擇Tools的Debugger Options的Language exceptions的
Stop......項取消!

问题已解决

多人接受答案了。