var<br> JPEGImage: TJpegImage;<br> Stream: TMemoryStream;<br> begin<br> JPEGImage := TJpegImage.Create;<br> Stream := TMemoryStream.Create;<br> try<br> JPEGImage.Assign(Bmp);<br> Stream.Clear;<br> JPEGImage.SaveToStream(Stream);<br> TBlobField(Field).LoadFromStream(Stream);<br> finally<br> JPEGImage.Free;<br> Stream.Free;<br> end;<br> end;