Yo antes que el for utilizaria la funcion InStrRev,
es igual que la que te puso CeLaYa pero devuelve la posición de una coincidencia de una cadena en otra, desde el final de la cadena.
Salu2
es igual que la que te puso CeLaYa pero devuelve la posición de una coincidencia de una cadena en otra, desde el final de la cadena.
Salu2