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.