162 begin

   162 begin

   163     CursorPoint.X:= x;

   163     CursorPoint.X:= x;

   164     CursorPoint.Y:= y;

   164     CursorPoint.Y:= y;

   165 end;

   165 end;

   166 

   166 

   167 procedure HW_saveCursor(reset: boolean); cdecl; export;

   173 procedure HW_saveCursor(reset: boolean); cdecl; export;

   168 begin

   174 begin

   169     if reset then

   175     if reset then

   170     begin

   176     begin

   171         CursorPoint.X:= xx;

   177         CursorPoint.X:= xx;