您可以编写:

Wordapp.Quit(SaveChanges:= wdDoNotSaveChanges);

Wordapp.Quit(SaveChanges:=wdDoNotSaveChanges);

或使用此:

word := CreateOleObject('Word.Application'); 

.... 
word.DisplayAlerts := false;
word.Quit;