Merged revisions 2146 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

r2146 (jonas)
  * initialise windmax (web bug #4654)

git-svn-id: branches/fixes_2_0@2147 -

rtl/win32/crt.pp

@@ -814,6 +814,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;