怎样用delphi控制word让它增加一页(100分)

我用delphi的servers上的组件打开了一个word文件，上面有一页内容，就是我的模板内容，
我想在word的一个文件中增加多页，每一页的内容都是相同的(格式)，这要怎么做，不用宏，用delpi
比如我在form1上放一个按钮，点一下后打开word文档，把相应的内容换掉，这我已经实现了
现在是怎么增加一页，把上面的内容复制下来，再把相应的内容用数据库中的内容换掉

procedure TForm1.CopyClick(Sender: TObject);
var MSWord: Variant;
begin
MSWord := CreateOleObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='C:/Documents and Settings/Rainy1/桌面/哲学1.doc', ReadOnly:=true);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
MSWord.Selection.WholeStory;
MSWord.Selection.Copy;
MSWord.Selection.MoveDown( Unit:=wdLine, Count:=4 );
MSWord.Selection.InsertBreak( Type:=wdPageBreak );
MSWord.Selection.Paste;
end;

我的办法很笨，全盘copy，呵呵。
其实msword就是wordapplication，写法不同罢了，
msword写函数时不用声明那么多olevariant的var变量。 []