数据表中数据写入到word中，标题设置的变化问题 ( 积分: 50 )

我想将表中第一个column的设为标题1、黑体，接下来三个column为宋体、不加粗、文档正文，用如下的程序来循环，可是写出来的word文档总是全部为标题（不加设wdStyleBodyText这段）或者全为正文，不知道怎么回事，谢谢
源码：
i := 30;
while i>0 do
begin
dataStyle := wdStyleHeading1;
WordDocument1.Range.Set_Style(dataStyle);
WordDocument1.Range.InsertAfter(edtName.Text);
WordDocument1.Range.InsertParagraphAfter;
SetFontTitle;
dataStyle := wdStyleBodyText;
WordDocument1.Range.Set_Style(dataStyle); //加了这两句，就变成全部是正文了：（
WordDocument1.Range.InsertAfter('邮编：' + edtMail.Text + ' ' + '法人/负责人：' + edtPerson.Text);
WordDocument1.Range.InsertParagraphAfter;
setFont;
WordDocument1.Range.InsertAfter('经营范围：' + Memo1.Text);
setFont;
WordDocument1.Range.InsertAfter('地址: ' + edtAddr.Text + '-----' + edtPhone.Text);
WordDocument1.Range.InsertParagraphAfter;
setFont;
WordDocument1.Range.InsertParagraphAfter;
setFont;
dec(i);
end;
不知道有没有人碰到过同样的问题，怎么解决的，谢谢

我想将表中第一个column的设为标题1、黑体，接下来三个column为宋体、不加粗、文档正文，用如下的程序来循环，可是写出来的word文档总是全部为标题（不加设wdStyleBodyText这段）或者全为正文，不知道怎么回事，谢谢
源码：
i := 30;
while i>0 do
begin
dataStyle := wdStyleHeading1;
WordDocument1.Range.Set_Style(dataStyle);
WordDocument1.Range.InsertAfter(edtName.Text);
WordDocument1.Range.InsertParagraphAfter;
SetFontTitle;
dataStyle := wdStyleBodyText;
WordDocument1.Range.Set_Style(dataStyle); //加了这两句，就变成全部是正文了：（
WordDocument1.Range.InsertAfter('邮编：' + edtMail.Text + ' ' + '法人/负责人：' + edtPerson.Text);
WordDocument1.Range.InsertParagraphAfter;
setFont;
WordDocument1.Range.InsertAfter('经营范围：' + Memo1.Text);
setFont;
WordDocument1.Range.InsertAfter('地址: ' + edtAddr.Text + '-----' + edtPhone.Text);
WordDocument1.Range.InsertParagraphAfter;
setFont;
WordDocument1.Range.InsertParagraphAfter;
setFont;
dec(i);
end;
不知道有没有人碰到过同样的问题，怎么解决的，谢谢

自己解决？