Fórum Erro com OleObject: WordApplication #363459

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  WordApp: Variant;
  oleFile, oleFind, oleReplace, oleReplaceMode: oleVariant;
begin
  WordApp := CreateOleObject(´Word.Application´);
  { Adiciona um documento em branco }
  WordApp.Documents.Add(EmptyParam, oleFalse, EmptyParam, EmptyParam);
  { Copia o arquivo para dentro do documento }
  oleFile := ExtractFilePath(Application.ExeName)+´\Modelo.doc´;
  WordApp.Selection.InsertFile(oleFile, EmptyParam, EmptyParam, EmptyParam, oleTrue);
  oleFind    := Trim(Procurar); // [TEXTO]
  oleReplace := Trim(Substituir); // String grande, muito grande
  oleReplaceMode := wdReplaceAll;
  WordApp.Selection.Find.Execute(oleFind, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   oleFalse, oleFalse, EmptyParam, oleReplace,
                                   oleReplaceMode, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  WordApp.Visible := True;
end;