我在ole容器里新建了一个空word文档，我想通过button把edit1和edit2的内容分别插入文档的第一行和第二行，怎么办啊？(50分)

我在ole容器里新建了一个空word文档，我想通过button把edit1和edit2的内容分别插入文档的第一行和第二行，怎么办啊？

自己看吧，内容很全的。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

procedure TForm1.Button1Click(Sender: TObject);
var
l_Selection: olevariant;
l_WordHand, l_DocHand: OleVariant;

begin

Try
l_WordHand := GetActiveOleObject('Word.Application');
Except
Try
l_WordHand := CreateOleObject('Word.Application');
Except
Application.MessageBox('Word没有安装', '提示', 48);
Exit;
End;
End;
l_wordhand.visible := True;
l_DocHand := l_WordHand.Documents.Add( '',False);
l_Selection := l_wordhand.selection;
l_Selection.TypeParagraph;
l_Selection.TypeText(edit1.text);
l_Selection.TypeParagraph;
l_Selection.TypeText(edit2.text);
end;

to 完颜康:
出错！

多人接受答案了。