如何将 Memo中的文本内容保存到当前目录下的 Word 文档中

//在单元接口部分引用  Comobj ;

procedure TForm1.Button3Click(Sender: TObject);
var Word : Variant;
begin
try
  Word := CreateOLEObject('Word.Application');
except
  Showmessage('请检查您的系统中有没有安装 Microsoft Word! ');
end;
  Word.Options.CheckSpellingAsYouType := False;{关闭拼音检查}
  Word.Options.CheckGrammarAsYouType := False; {关闭语法检查}
try
  Word.Documents.Open(extractfilepath(Application.ExeName)+'\test.doc',false);
  Word.Visible := false;
  Word.ActiveDocument.Range(0, 0);//
  Word.ActiveDocument.Range.InsertAfter(memo1.Lines.Text);//
  Word.ActiveDocument.Range.InsertParagraphAfter;
  Word.ActiveDocument.Range.Font.Name := 'MS Sans Serif';// 设置字体样式  Word.ActiveDocument.Range.Font.Size := 24;// 设置字体大小
  Word.Quit;
finally
  Word.Quit;
end;