como Inserir dados no Word com DELPHI XE6?

ESTOU USANDO ESTE

WordApp.Selection.Find.Execute(FindText:= 'NOME', ReplaceWith:= Edit2.Text);

MAS EXECUTA E SUBSTITUI SOMENTE UMA PALAVRA!!!!

COMO SUBSTITUIR VARIAS PALAVRA CHAVES?

TEM OUTRA MANEIRA DE FAZER ISS?