* file unlocking fixed as well now :/

git-svn-id: trunk@29631 -

packages/fcl-db/src/dbase/dbf_wos2.inc

@@ -648,7 +648,7 @@ begin
   TQRecC (FUnlock.Offset).C1 := dwFileOffsetLow;
   TQRecC (FUnlock.Range).C2 := nNumberOfBytesToUnlockHigh;
   TQRecC (FUnlock.Range).C1 := nNumberOfBytesToUnlockLow;
-  RC := DosSetFileLocksL (hFile, FLock, FUnlock, 50, 0);
+  RC := DosSetFileLocksL (hFile, FUnlock, FLock, 50, 0);
   if RC <> 0 then
    begin
     LastErr := RC;