搞定啦！
var
word : Variant;
begin
word := CreateOleObject( 'word.application' );
word.Caption:='Delphi and Word ';
word.visible := True;
word.Documents.add;
word.Selection.TypeParagraph;
word.Selection.Font.Bold := True;
word.Selection.TypeText('http://aerobull.126.com');
word.Selection.TypeText( StringOfChar('-',40) );
word.Selection.ParagraphFormat.Alignment := 1;
word.ActiveDocument.close(0);//关闭当前文档，参数0指出不保存
word.quit;//退出
