delphi 三层

delphi 3层
两个image 字段 FieldByName(Image) := FieldByName(Image1) 怎么付值 image1 字段是有图片的了
[解决办法]
FieldByName(Image).Value := FieldByName(Image1).Value
或者
var
  tmpStream : TMemoryStream;
……
TBlobField(FieldByName(Image1)).SaveToStream(tmpStream);
tmpStream.Seek(0,0);
TBlobField(FieldByName(Image)).LoadFromStream(tmpStream);