* added ifdef fpc

tests/webtbs/tw3489.pp

@@ -3,7 +3,7 @@
 { e-mail: [email protected] }
 program itest;
 
-{$mode delphi}
+{$ifdef fpc}{$mode delphi}{$endif}
 
 var
   err : boolean;