如何使用Delphi在TImage中显示所有图片格式

我编写了一个存储照片的应用程序,保留了数据库中照片的路径.我遇到了一个问题.当我单击我的按钮选择要在T Image对象中显示的图片供用户在保存之前查看时,我收到以下异常通知：引发异常类：EInvalidGraphic,消息“未知图片扩展名(.jpg)”

我正在使用TopenPicture组件来获取图像. openPicture.filter属性设置为接受大多数图像格式(jpg,jpeg,png,gif,bmp),但我无法将任何这些格式加载到TImage组件中.

这是我用来加载图像的代码：

openPicture.Execute();
filename := openPicture.FileName;

if not(fileName = '') then
begin
  imgFoto.Picture.LoadFromFile(filename);
  imgFoto.Visible := true;
end;