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

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

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

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

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