Зачем? Проблема только в реализации дельфийского оператора shr для Int64, причем, как можно заметить по представленному решению, у него на этот случай есть две разные реализации. Но от чего зависит какую он выберет - я не в курсе (для вынесенной в отдельную функцию shr он генерирует совершенно другой ассемблер).