如何在Delphi 10.1 Berlin TImageViewer中拟合从sqlite blob字段加载的图像？

Question

我正在尝试使用Delphi的TImageViewer组件在blob字段中显示以前保存的图像。我正在使用Delphi 10.1柏林开发。

即使使用TImageViewer命令，图像也不适合BestFit组件，如下所示。图像比组件大。但如果图像不是来自数据库字段，它就适合组件。

这是我的代码：

BlobStream := qryFoto.CreateBlobStream(qryFoto.FieldByName('image'), TBlobStreamMode.bmRead);
Image1.Bitmap.LoadFromStream(BlobStream);
Image1.BestFit;
BlobStream.Free;

如何适应它？