Assasin, в твоем коде есть один существенный недостаток -- ты используешь CopyEnd(substr,offset), что будет тормозить при большой длине строки и жрать память на дополнительную переменную str, или ты не знаешь, что выделение памяти занимает у системы время (вот откуда у тебя и результат на лысой системе выше, она свободна), я не смотрел код функции Pos, но, похоже, она построена не на шибко оптимальнои коде. Этого лишен стандартный код, он использует последовательное чтение строки и последовательное приближение к поисковой строке
------------ Дoбавленo в 23.06:

Я десять раз прогнал тест, и десть раз он мне показал стабильное отставание твоего кода