Ошибаешься, совместимость ты уже нарушил вот здесь, в объявлении переменных
Те, вот такое обращение: PosEx(Sub, Str), у тебя работать не будет
И вообще, если ты что-то предлагаешь, то будь добр оставлять имена переменных и их объявления без изменений

------------ Дoбавленo в 22.26:
Во-вторых, я не знаю с чем это связано (не я писал эту функцию), но в поиске отсутствует функция Pos, которую ты применил для всех случаев, она там используется только при поиске с начала