Tworddocument控件中，如何实现将Tworddocument的内容保存到指定的地方（已提供原代码参考）。请教

Tworddocument控件中，如何实现将Tworddocument的内容
保存到指定的地方（已提供原代码参考），如：我想关闭
Tworddocument时，自动保存到c:/temp.doc窗口共有三个控件：worddocument1,wordapplication1,button1;
下面提供打开指定文件原的代码，但我不知道保存到指定文件的代码是怎么写？（打开一个WORD文件代码）
button1-----------click       代码为
procedure TForm1.Button2Click(Sender: TObject);
varFilename,PasswordDocument,PasswordTemplate,WritePasswordDocument,
WritePasswordTemplate,Encoding,ConfirmConversions,ReadOnly,
AddToRecentFiles,Revert,Visible,
Format,ItemIndex:olevariant;begin
  wordapplication1.connect;
  wordapplication1.visible := true;
  wordapplication1.caption := 'delphi automation';  {open document}  FileName := 'C:/temp.doc';
  ConfirmConversions:= False;
  ReadOnly:=False;
  AddToRecentFiles:=False;
  PasswordDocument:='';
  PasswordTemplate:='';
  Revert:=True;
  WritePasswordDocument:='';
  WritePasswordTemplate:='' ;
  Format:=wdOpenFormatDocument;
  Visible := true;
  Encoding := '';
  WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible);
  ItemIndex:= 1;
  WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
  WordApplication1.Options.CheckSpellingAsYouType := False;
  WordApplication1.Options.CheckGrammarAsYouType := False;
end;