+ bug report 1808 test

tests/webtbs/tw1808.pp

@@ -0,0 +1,14 @@
+{$ifdef win32}
+uses
+  windows;
+{$endif win32}
+
+var
+  x : DWORD;
+begin
+{$ifdef win32}
+  x:=CommDlgExtendedError;
+{$else not win32}
+  x:=0;
+{$endif win32}
+end.