procedure TEditProduct.BitBtn2Click(Sender: TObject);var I : integer; T,NewMake : string; MS:TMemoryStream; MS2:TMemoryStream; bmp : Tbitmap; jpeg : Tjpegimage;begin if not ImageEnView1.IsEmpty then begin MS:=TMemoryStream.Create; ImageEnView1.IO.SaveToStreamJpeg(MS); MS.Position :=0; ((MyQuery1.FieldByname('imgbig')) As TBlobField).LoadFromStream(MS); MS.Free; MS2:=TMemoryStream.Create; jpeg := Tjpegimage.Create; bmp := Tbitmap.Create; bmp.Width := 200; bmp.Height := 156; bmp.Canvas.StretchDraw(Rect(0, 0, 200, 156),ImageenView1.Bitmap); jpeg.Assign(bmp); jpeg.SaveToStream(MS2); MS2.Position :=0; ((MyQuery1.FieldByname('imgdata')) As TBlobField).LoadFromStream(MS2); jpeg.Free; bmp.Free; MS2.Free; end; MyQuery1.Post; MyQuery1.Edit;end;