[lmikle]

А можно еще проще.

Код:

Stream := TMemoryStream.Create;
Try
  DBImage1.Picture.Bitmap.SaveToStream(Stream);
  Stream.Seek(0,0);
  DM.IBQuery6.Params[4].AsBlob.LoadFromStream(Stream);
Finally
  Stream.Free;
End;