+ update CursorX and CursorY when setting the cursor pos in the video unit for win16

git-svn-id: trunk@31860 -

packages/rtl-console/src/win16/video.pp

@@ -202,6 +202,8 @@ end;
 
 procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
 begin
+  CursorX:=NewCursorX;
+  CursorY:=NewCursorY;
 end;
 
 function SysGetCursorType: Word;