高分求解：关于image字段

用TImage显示，  //写(把image转化为流，写入数据库）
  pQuery.Edit;
  TBlobField *pField=(TBlobField *)pQuery.FieldByName("Image");
  TlobSream *pmen=new TBlobStream(pField,bmWrite);
  pmen.seek(0,soFromBeginning);
  Bitmap *pBitmap=new TBitmap;
  pBitmap.Assign(Image1.Picture.Graphic);
  pBitmap.SaveToStream(pmen);
  free pBitmap;
  free pmen;
  pQuery.Post;