[TOJluK]

Как- то так:

Код:

var MS:TMemoryStream;
     JPG:TJPEGImage;
     BMP:TBitMap;
begin
  MS := TMemoryStream.Create;
  JPG := TJPEGImage.Create;
  BMP := TBitmap.Create;
  (Query1.FieldByName('PHOTO') as TBlobField).SaveToStream(MS);
   MS.Position := 0;
   JPG.LoadFromStream(MS);
   BMP.Assign(JPG);
   DBImage1.Picture.Assign(BMP);
   MS.Free;
   JPG.Free;
   BMP.Free;