Замена текста в word из delphi

[Cannibal]

задача: заменить в документе Ворд все вхождения слова в документ. вот акой пример нашел, но он выдает ошибку.

 procedure FindAndReplace (SearchStr, ReplaceStr : string);
begin
Word.Selection.Find.ClearFormatting;
Word.Selection.Find.Text := SearchStr;
Word.Selection.Find.Replacement.Text := ReplaceStr;
Word.Selection.Find.Forward := True;
Word.Selection.Find.Wrap := 1;
Word.Selection.Find.Format := False;

Word.Selection.Find.MatchWholeWord := False;
Word.Selection.Find.MatchSoundsLike := False;
Word.Selection.Find.MatchAllWordForms := False;
word.Selection.Find.Execute (Replace := 2);
end;

в последние строке ругается на replace: идентификатор не найден.

подскажите, пожалуйста, как исправить, и вобще, может есть какой-то другой способ замены?