* mode delphi

git-svn-id: trunk@592 -

tests/webtbs/tw4119.pp

@@ -2,6 +2,8 @@
 { Submitted by "C Western" on  2005-06-26 }
 { e-mail: [email protected] }
 
+{$mode delphi}
+
 uses StrUtils;
 
 function mypos(s1,s2 : widestring) : integer;overload;