* delphi mode

tests/tbs/tb0471.pp

@@ -1,3 +1,5 @@
+{$mode delphi}
+
 const
   err : boolean = true;