diff --git a/tests/tbs/tb0440.pp b/tests/tbs/tb0440.pp
index a65df043e2..3a84ae2f79 100644
--- a/tests/tbs/tb0440.pp
+++ b/tests/tbs/tb0440.pp
@@ -1,3 +1,4 @@
+{$mode delphi}
 uses ub0440;
 
 procedure ub0440;