diff --git a/rtl/wince/wininc/coredll.inc b/rtl/wince/wininc/coredll.inc
index 828de69c14..7d9a270696 100644
--- a/rtl/wince/wininc/coredll.inc
+++ b/rtl/wince/wininc/coredll.inc
@@ -4262,6 +4262,7 @@ var
   si : TScrollInfo;
 begin
   si.cbSize:=SizeOf(si);
+  si.fMask:=SIF_POS;
   if GetScrollInfo(hWnd, nBar, si) then
     Result:=si.nPos
   else
@@ -4273,6 +4274,7 @@ var
   si : TScrollInfo;
 begin
   si.cbSize:=SizeOf(si);
+  si.fMask:=SIF_RANGE;
   Result:=GetScrollInfo(hWnd, nBar, si);
   if Result then begin
     lpMinPos:=si.nMin;