In the lazarus version this was fixed long ago
See answer in the thread referenced above.
Free Pascal 3.2.2 Released!
Free Pascal 3.2.2 Released!
VOTE:cudatext
* Starting with introduction of a more property based ifdef system, as opposed to version based.
* Fix casing problem, reported at http://zeos.firmos.at/viewtopic.php?t=3439
* adjust for new decision to merge TBookmark typechange only after 2.6.2