Delphi - Word y Delphi

Estoy utilizando el siguiente codigo para crear una tabla de word desde delphi, pero al ejecutarlo, envia el suiguiente error:

"El Filtro de Mensaje indicó Que la Aplicación esta ocupada"

¿Como lo puedo solucionar ? ¿A Que se debe?

Word97:= CreateOleObject('Word.Application');
Documento:= Word97.Documents.Add;
Documento.Tables.Add(Range:= Word97.Selection.Range, NumRows:=2, NumColumns:= 4);