Wordapplication.Connect;
  Template := 'D:\1\1.doc';

  ItemIndex:= 1 ; NewTemplate := True;
  WordApplication.Documents.Add(Template, NewTemplate, EmptyParam,   EmptyParam);

  WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));

  WordApplication.Options.CheckSpellingAsYouType := False;
  WordApplication.Options.CheckGrammarAsYouType := False;

  WordDocument.PrintOut;

  SaveChanges:=False;
  WordDocument.Close(SaveChanges);

  WordApplication.Disconnect;
  WordApplication.Quit;

посмотри waitforsingleobject