ВНИМАНИЕ: отвечая на комментарий , а не на сам вопрос
Существует (или, скорее, было , потому что в настоящее время оно было заброшено) блок Delphi (а именно!) FastStrings , который реализует алгоритм поиска строк Бойера – Мура при интенсивном использовании встроенного ассемблера. Это тот, который вы ищете?
В качестве примечания: домашняя страница проекта теперь не работает, пока она находится на электронной почте автора, поэтому я считаю, что повторное использование (и модификация и, конечно же, дальнейшая разработка) этого кода довольно проблематично, учитывая ограниченность лицензирования условия.