PosEx, mejora de la función Pos

[courtois]

Sería bueno nombrarla de otra forma, digo para no confundirla, ya que en StrUtils tenemos la funcion PosEx con los mismos parámetros, solo que el ultimo sirve para indicar a partir de donde se hace la busqueda

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;

PosEx returns the index of SubStr in S, beginning the search at Offset. If Offset is 1 (default), PosEx is equivalent to Pos.

PosEx returns 0 if SubStr is not found, if Offset is greater than the length of S, or if Offset is less than 1.