delphi olecontainer的有关问题

delphi olecontainer的问题
opendialog1.filter:='文本文件(*.doc)|*.doc';
 if OpenDialog1.Execute then
 begin
  olcntnr1.CreateObjectFromFile(OpenDialog1.FileName,False);
  olcntnr1.Doverb(ovShow);
  olcntnr1.Run;
 end;



  olcntnr1.SaveToStream(Stream); \\保存到流利 然后清空

如何清空olecontainer？ 供导入下个文件

[解决办法]
olcntnr1.DestroyObject;