Это я сам написал несколько функций для себя TShare можно стереть, функция posEx() есть в простом Share
------------ Дoбавленo в 16.24:
Не в совместимости дело, моя pos_ex делает то же что и poEx, только строчек кода меньше.