Ошибка: Object or class type required

Word.Selection.Find.MatchSoundsLike := False;

try
   WordApp := GetActiveOleObject('Word.Application');
  except
   try
    WordApp := CreateOleObject('Word.Application');
   except on E: Exception
   do begin
      ShowMessage('Не удалось запустить Word!'#13#10 + E.Message);
      Exit;
      end;
   end;
  end;

var
  WordApp: OLEVariant;
............................................
WordApp.Selection.Find.MatchSoundsLike := False;

function FindAndReplace(const FindText,ReplaceText:string):boolean;
  const wdReplaceAll = 2;
  var
    Word:variant;
    WordApp: OLEVariant;
    FilePath: string;
begin
  ShowMessage('1');
  FilePath := '\\10.100.0.10\DBClient\Reports\ClaimsHoliday\ClaimsHoliday.doc';
  ShowMessage('2');
  Word.Documents.Open(FilePath);
  ShowMessage('3');
  Word.Documents.Open(FileName:=FilePath, ReadOnly:=true);
  ShowMessage('4');
  Word:= CreateOleObject('Word.Application');
  Word.Selection.Find.MatchSoundsLike := False;
  Word.Selection.Find.MatchAllWordForms := False;
  Word.Selection.Find.MatchWholeWord := False;
  Word.Selection.Find.Format := False;
  Word.Selection.Find.Forward := True;
  Word.Selection.Find.ClearFormatting;
  Word.Selection.Find.Text:=FindText;
  Word.Selection.Find.Replacement.Text:=ReplaceText;
  FindAndReplace:=Word.Selection.Find.Execute(Replace:=wdReplaceAll);
end;