* corrected test

tests/webtbs/tw2037.pp

@@ -4,7 +4,7 @@
 program tw2037;
 
 const
-  FILE_FLAG_WRITE_THROUGH = 2147483648;
+  FILE_FLAG_WRITE_THROUGH = -2147483648;
   FILE_ATTRIBUTE_NORMAL = 128;
 
 var
@@ -12,4 +12,4 @@ var
 
 begin
   anattr := FILE_FLAG_WRITE_THROUGH or FILE_ATTRIBUTE_NORMAL;
-end.
+end.