SAVRTOSTREAM 和 LOCAFROMSTREAM 问题(50分)

为什么会提示未定义 SAVRTOSTREAM 和 LOCAFROMSTREAM 。代码实现图片转存不会有错吧？
procedure Tsjzj.Button1Click(Sender: TObject);
var
TempStream : TMemoryStream;

begin
TempStream := TMemoryStream.Create;

adoTable1.FieldByName('photo'). saveToStream (TempStream)
// write list box contents to the
// stream
TempStream.Position := 0
// reset to the beginning of the stream
adoTable4.FieldByName('photo').LoadfromStream( TempStream)
// load stream contents into rich
// edit control

TempStream.Free;
end;

用TBlobField将字段类型转换后即可。

to:楼上，
能给出具体代码吗？可以请问你的QQ号码吗？