快快进来拿分了（100分），关于OLE问题？

各位大虾！小弟有一关于“OLE”控件问题,代码如下:请各位大哥帮忙解决!

VAR
oleDY:Tstream;
begin
//调用OLE对象为用户浏览用
//oledy:=tstream.Create;
//oledy.Position  :=0;
table1.open;
table1.RecNo:=1;
oleDY:=table1.CreateBlobStream(table1.FieldbyName('mc'),bmread);
OLE.LoadFromSTREAM(OLEDY);
ole.DoVerb(ovshow);
oleDY.free;
end;

提示出错：“ole  error  80030109”不知出错在那里,请各位大哥帮忙解决!