* only allow the ugly code in delphi mode

tests/tbs/tb0407.pp

@@ -1,6 +1,6 @@
 { %version=1.1 }
 
-{$ifdef fpc}{$mode objfpc}{$endif}
+{$ifdef fpc}{$mode delphi}{$endif}
 
 var
   err : boolean;