funcion similar a PoS ?

[jhonny]

La verdad es que no conozco o no recuerdo una función que haga eso que dices, pero podrias implemnetar la siguiente:

Código Delphi [-]
function PosR(SubCadena, Cadena :String):Integer;
begin
  Result := Pos(SubCadena, ReverseString(Cadena));
end;

Nota: ReverseString es una función que pertenece a la unidad StrUtils.