Delphi+word??? 送分。。。

我正在写一段程序，需要把一些数据表中的字段写进一个文档模板（*.DOT文档）（已存在）中。可是老出错。那位帮帮忙，50分奉送。最好给个例子。谢谢。procedure TForm1.Wordini(Template:OleVariant);
var
    NewTemplate,ItemIndex:OleVariant;
begin
    NewTemplate:=false;
    Itemindex:=1;
    try
       WA.Connect;
    except
       WA.Disconnect;
       ShowMessage('请安装office中的word软件!');
       exit;
    end;
    WA.Visible:=True;
    WA.Documents.Add(Template,NewTemplate);
    WD.ConnectTo(WA.Documents.Item(ItemIndex));    
end;