Load blob to TImage Delphi

BlobToTImage

procedure LoadImageFromDbToTImage(img: TImage; Field: string; id: integer);
var
  memStream: TMemoryStream;
  Graphic: Graphics.TGraphic;
  bm: Graphics.Tbitmap;
begin
  odsImages.Close;
  odsImages.SetVariable('id', id); //ИД картинки
  odsImages.Open;

  memStream := TMemoryStream.Create;
  (odsImages.FieldbyName(Field) as TBlobfield).SaveToStream(memStream);
  bm:=Graphics.TBitmap.Create;

  Graphic := TPNGGraphic.Create;
  {
  Для других типов:
  bmp  - Graphics.TBitmap.Create;
  gif  - Graphic := TGIFImage.Create;
  jpeg - Graphic := TJPEGImage.Create;
  }

  try
    memstream.Seek(0, soFromBeginning);
    Graphic.LoadFromStream(memstream);
    bm.Assign(Graphic);
    img.Picture.Assign(bm);
  except
  end;

  Graphic.Free;
  memStream.Free;
  bm.Free;
end;