aStream:TMemoryStream;
aStream:=TMemoryStream.Create;
字段保存到stream
qrypub.ParamByName('Data').LoadFromStream(aStream, ftBlob);
从字段读取到Stream里
TBlobField(dm.qrypub.FieldByName('FILE_TEXT')).SaveToStream(aStream);
aStream.position:=0;
用完后释放
aStream.Free;