Сохранение в таблице файлов формата JPEG

Следующая статья: Использование DateTime в DBGrid.

Как правильно показать на экране и сохранить в таблице картинку формата JPEG?
Можно сделать, например, так:

if Picture.Graphic is TJPegImage then
 begin
 bs:=TBlobStream.Create(TBlobField(Field),bmWrite);
 Picture.Graphic.SaveToStream(bs);
 bs.Free;
 end else
 if Picture.Graphic is TBitmap then
 begin
 Jpg:=TJPegImage.Create;
 Jpg.CompressionQuality:=…;
 Jpg.PixelFormat:=…;
 Jpg.Assign(Picture.Graphic);
 Jpg.JPEGNeeded;
 bs:=TBlobStream.Create(TBlobField(Field), bmWrite);
 Jpg.SaveToStream(bs);
 bs.Free;
 Jpg.Free;
 end
 else
 Field.Clear;

Примечание: Вы не забыли объявить переменную bs как TBlobStream?