Есть ли код для версии Pos (), который 'так же быстро в 64-битном, как текущий 32-битный?

Насколько я понимаю, 32-разрядная версия в Delphi (протестированная до XE5) приняла версии ассемблера FastCode много лет назад, но для 64-разрядной версии используется версия PurePascal, которая примерно в 5-10 раз медленнее.

Некоторые тесты, одна и та же процедура в длинном цикле:

32-разрядный: 65..90 мс

64-разрядный: 280 .. 300 мс