diff --git a/lisp/files.el b/lisp/files.el
index a65bc4a4ea2..9f13804540b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2978,7 +2978,7 @@ since only a single case-insensitive search through the alist is made."
      ("\\.for\\'" . fortran-mode)
      ("\\.p\\'" . pascal-mode)
      ("\\.pas\\'" . pascal-mode)
-     ("\\.\\(dpr\\|DPR\\)\\'" . delphi-mode)
+     ("\\.\\(dpr\\|DPR\\)\\'" . opascal-mode)
      ("\\.\\([pP]\\([Llm]\\|erl\\|od\\)\\|al\\)\\'" . perl-mode)
      ("Imakefile\\'" . makefile-imake-mode)
      ("Makeppfile\\(?:\\.mk\\)?\\'" . makefile-makepp-mode) ; Put this before .mk