Hello...
Read this:
Scalable RWLocks version 4.1 are here..
Now they are working correctly with Delphi and FreePascal,
and they work on Windows and Linux.
You can download them from:
https://sites.google.com/site/aminer68/scalable-rwlock
Thank you,
Amine Moulay Ramdane.