把图像存为一文件，如
myfile := tfilestream.create('x.bmp', fmopenread);
然后采用类似的：
stream := tblobstream.create(fieldbyname('recmemo') as tblobfield, bmwrite);
memsize := myfile.size;
buffer := allocmem(memsize);
try
stream.seek(0, sofrombeginning);
myfile.read(buffer^, memsize);
stream.Write(buffer^, memsize);
finally
myfile.Free;
stream.free; end;
end;
就可以了，
