diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index 17b7c739..1a8b5d4b 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -220,6 +220,7 @@ Delphi:
   type: programming
   extensions:
   - .pas
+  - .dpr
 
 Diff:
   extensions:
diff --git a/test/test_blob.rb b/test/test_blob.rb
index 5448f418..3c9a9156 100644
--- a/test/test_blob.rb
+++ b/test/test_blob.rb
@@ -289,6 +289,9 @@ class TestBlob < Test::Unit::TestCase
 
     # https://github.com/drupal/drupal/blob/7.x/modules/php/php.module
     assert_equal Language['PHP'], blob("drupal.module").language
+
+    # https://github.com/googleapi/googleapi/blob/master/demos/gmail_demo/gmail.dpr
+    assert_equal Language['Delphi'], blob("program.dpr").language
   end
 
   def test_lexer