* initialise windmax (web bug #4654)

git-svn-id: trunk@2146 -

rtl/win32/crt.pp

@@ -847,6 +847,7 @@ begin
   WindMinY := (ConsoleInfo.srWindow.Top) + 1;
   WindMaxX := (ConsoleInfo.srWindow.Right) + 1;
   WindMaxY := (ConsoleInfo.srWindow.Bottom) + 1;
+  WindMax:=((WindMaxY-1) Shl 8)+(WindMaxX-1);
 
   DoingNumChars := false;
   DoingNumCode := 0;