初学者求教：通过FILELISTBOX组件在IMAGE组件显示图像问题
目的：通过选择FILELISTBOX中的图像文件名，在IMAGE组件中显示该图像。代码：
procedure TForm1.FileListBox1Change(Sender: TObject);
var
fileext:string;
begin
//取选中文件名的扩展名，并转化为大写字母
fileext:=uppercase(extractfileext(filelistbox1.filename));
//根据扩展名，判断是否可以处理的文件类型
if (fileext='.BMP') or (fileext='.ICO') or (fileext='.WMF') or
(fileext='.EMF') or (fileext='.JPG') or (fileext='.JPEG') then
begin
//扩展名符合要求，把文件读入图像组件中
image1.picture.loadfromfile(filelistbox1.filename);
//在窗体的标题中显示文件名以及文件的尺寸
self.Caption:='图片浏览器-'+extractfilename(filelistbox1.FileName)
+format('(%dX%d)',[image1.Picture.Width,image1.Picture.Height]);
if fileext='.ICO' then
self.icon:=image1.picture.Icon;
end;
end;
结果：测试时点击图像名时出现“调试器检测到错误”的提示：“检测到错误类EInvalidGraphic,错误信息：'Unknown picture file extension(.jpg)'.进程中止，使用单步或运行继续运行”
请教：问题出在哪儿，怎样解决？
大师们，怎么不理我呀？
