Função nao funciona mais

  if pos(´must have a value´,E.Message) > 0 then
  begin
    Texto := StringReplace(E.Message,´must have a value´,´ precisa ter um valor.´,[rfReplaceAll,rfIgnoreCase]);
    Texto := StringReplace(Texto,´Field´,´O Campo ´,[rfReplaceAll,rfIgnoreCase]);
    MessageDlg(texto,mtWarning,[mbok],0);
  end
  else
    MessageDlg(E.Message,mtWarning,[mbok],0);