Delphi - Pos () с границами

Мне бы хотелось, чтобы Pos () был адаптирован для использования с указанием границ в исходной строке, а не для выполнения поиска по всем данным. F.e: NewPos (SubStr, SourceString, Offset, EndingOffset)

Это должна быть модификация текущей реализации ASM FastCode в последней версии Delphi XE3, так что она будет быстрее, чем реализация PurePascal (и, очевидно, также быстрее, чем использование простого Pos или PosEx). Кроме того, он должен работать со строками Unicode.