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;