funcion similar a PoS ?

[jhonny]

ReverseString te devulve una cadena invertida, mas no te invierte la cadena como tal, un ejemplo:

Código Delphi [-]
Var
  MiCadena :String;
begin
  MiCadena := 'Ejemplo';
  ShowMessage(ReverseString(MiCadena));
  ShowMessage(MiCadena);  
end;

En el ejemplo anterior, puedes ver como despues de usar la funcion ReverseString, la variable MiCadena sigue teniendo el mismo valor.