procedure TForm1.Button1Click(Sender: TObject);
var
ev:Olevariant;
begin
WordApplication1.Connect;
ev := EmptyParam;
WordDocument1.ConnectTo(WordApplication1.Documents.Add(ev,ev,ev,ev));
WordDocument1.Activate;
WordApplication1.Visible := true;
end;
procedure TForm1.WordApplication1Quit(Sender: TObject);
begin
WordApplication1.Disconnect;
end;