Делаю замету текста
WordApplication.Selection.Find.Execute(FindText,MatchCase,MatchWholeWord,
MatchWildcards,MatchSoundsLike,MatchAllWordForms,Forwardd,Wrap,Format,  ReplaceWith,Replace);  
И получаю   [Error] Main.pas(723): Not enough actual parameters

Параметров не хватает...
Какой Word объявлен в uses ?

Вот это точно работает (выдернуто из рабочей проги):
try
 begin
 WinWord:=CreateOLEObject('Word.Application');
 //WinWord.DisplayAlerts:=False;
 WinWord.Documents.Open(FilePath);
 WinWord.Selection.HomeKey(6); //Ставлю на начало  (Ctrl+Home)
 
 //Установка параметров поиска
 WinWord.Selection.Find.ClearFormatting;
 WinWord.Selection.Find.Replacement.ClearFormatting;
 WinWord.Selection.Find.Text := What;
 WinWord.Selection.Find.Replacement.Text := ByWhat;
 WinWord.Selection.Find.Forward := True;
 WinWord.Selection.Find.Wrap := 1;
 WinWord.Selection.Find.Format := False;
 WinWord.Selection.Find.MatchCase := False;
 WinWord.Selection.Find.MatchWholeWord := False;
 WinWord.Selection.Find.MatchWildcards := False;
 WinWord.Selection.Find.MatchSoundsLike := False;
 WinWord.Selection.Find.MatchAllWordForms := False;

 while WinWord.Selection.Find.Execute do //Пока чей-то находится
   begin
   WinWord.Selection.TypeText(ByWhat);
   Inc(PeplaceCount);
   Application.ProcessMessages;
   end;
   
 WinWord.ActiveDocument.Save; //Сохраняю
 WinWord.Quit; //И закрываю
 end
except Result := False end;
WinWord := Unassigned;