如何用Delphi控制Word使它只读和关闭时不显示保存对话框(100分)

请问各位前辈如何用Delphi控制Word使它只读（当我用程序在Word中填写后要把Word改成只读），
在关闭时Document未保存，怎样使它不显示保存对话框，直接关闭。
　　　　　　　　　　　　　　　　　　　　　　　请各位不吝赐教，谢谢

则么没有人回答，是不是不能实现？

看看这个帖子。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

procedure TForm1.Save1Click(Sender: TObject);
var
filename,itemindex: olevariant;
fileformat, lockcomments, password,
addtorecentfiles, writepassword, readonlyrecommended, embedtruetypefonts, savenativepictureformat,
saveformsdata, saveasaoceletter: olevariant;
begin
filename :='cwl123.doc'
fileformat := wdFormatDocument;
lockcomments := true;//false;
password := '';
addtorecentfiles := true;
writepassword := '';
readonlyrecommended := true;
embedtruetypefonts := true;
savenativepictureformat := false;
saveformsdata := false;
saveasaoceletter := false;
itemindex := 1;
worddocument1.ConnectTo(wordapplication1.Documents.Item(itemindex));
worddocument1.SaveAs(filename,fileformat, lockcomments, password,
addtorecentfiles, writepassword, readonlyrecommended, embedtruetypefonts, savenativepictureformat,
saveformsdata, saveasaoceletter);
end;

谢谢二位
问题已经解决，我在程序里已经用了SaveAs函数，可是没注意到lockcomments 参数，看来经验还是不够，不够仔细。
以后还要请各位多多帮忙。