急，帮忙关于olecontainer的问题

我从数据库中取出一个word文档后olecontainer打开，修改后保存为word文档后，在存入数据库，但是在从数据库中取出后，正常的用word打开没有问题，但是用olecontainer
再打开就报错：磁盘空间错误！什么原因呀？
procedure TForm2.FormShow(Sender: TObject);
begin
TBlobField(form1.Query1.FieldByName('kjnr')).SaveToFile(wjpath+'\5678.doc');
  Try
    OLE.CreateObjectFromFile(wjpath+'\5678.doc',False);
   OLE.Run;
IF OLE.State=osRunning Then OLE.DoVerb(ovshow);
    MyWord:=GetActiveOleObject('Word.Application');
  Except
    On E:Exception Do
    Begin
      Application.MessageBox(Pchar('打开文档"'+wjpath+'\5678.doc'+'"失败:'+E.Message),'系统提示:',48);
      form2.Close;
      Exit;
    End;
  End;
End;
procedure TForm2.N3Click(Sender: TObject);
begin
ole.SaveAsDocument(wjpath+'\567812.doc');
form1.Table1.Active:=false;
form1.Table1.TableName:='kj';
form1.Table1.Active:=true;
form1.Table1.editkey;
form1.Table1.FieldByName('kjbh').AsString:=form1.query1.fieldbyname('kjbh').AsString;
if form1.Table1.GotoKey then
begin
form1.Table1.Edit;
Tblobfield(form1.Table1.FieldByName('kjnr')).LoadFromFile(wjpath+'\567812.doc');
form1.Table1.Post;
form1.query1.Close;
form1.query1.open;
end;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ole.DestroyObject;
end;end.