[Bug 40421] it is the function used by Windows SetFilePointer

https://bugs.winehq.org/show_bug.cgi?id=40421

--- Comment #3 from LEMONNIER  ---
Here is the code wich create error #87 under Wine but not under Windows:

xFPos := SetFilePointer(F, WinDef.LONG(PageNo*PageSize), NIL,
FILE_BEGIN);
      Set_Last_IO_Err;
      IF (Last_IO_Err = 0) THEN
        (*
           No error...
        *)
      ELSE
        (*
           here:  Last_IO_Err = 87 !!
           show 'PageNo' and 'PageSize' for control
        *)
        VioWriteCard(0, 22, PageNo, 12);
        VioWriteCard(12, 22, PageSize, 12);

(* Show error message *)
Signal_Last_IO_Err(FALSE, PosOp, XWFN)

END

PATRICE LEMONNIER