Как загрузить произвольное изображение из потока BLOB в TImage?

Если я правильно понимаю, TI mage.LoadFromFile определяет тип изображения по расширению файла.

Есть ли способ автоматически определить тип изображения из TBlobStream с необработанным изображением в нем?

Мой текущий код:

procedure LoadImageFromStream(AImage: TImage; ADataSet: TDataSet);
var
  Stream: TStream;
begin
  Stream := ADataSet.CreateBlobStream(Field, bmRead);
  try
    AImage.Picture.Graphic.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end