Foros Club Delphi - Documento Word

Buenas noches. Es la primera vez que creo un documento de Word desde Delphi. Tras investigar y fallar unas cuantas veces he conseguido crear el documento y que se abra haciendo clic en un boton. El problema que tengo es que hago clic, se abre el documento, lo cierro y si intento volver a abrirlo me da error. Si no cierro el documento y hago clic mas de una vez me abre tantos documentos como clics. Lo que quiero es que aunque lo cierre me deje volver a abrir otro sin tener que cerrar y volver a abrir el programa.

Mi codigo es este:

procedure Tprincipal.ventradasClick(Sender: TObject);
var
...
begin
WordDocument1.Activate;
...
Escribo todo en el documento
...
WordDocument1.Application.Visible := true;
end;

Utilizo Delphi 7 y Word 2003 en Windows 7.

Gracias por vuestra ayuda.

Guiller

Código Delphi [-]

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;