Extraer números en una string alfanumérica

[Tonio]

Tengo un RichEdit con un texto dividido en capítulos y estos en párrafos, los cuales están numerados, como puedo pasar, los números de párrafo, a una variable.
El número de párrafos por capitulo pueden ser hasta 150 el máximo y 10 el mínimo.
Con Cadena[i] saco hasta 9, pero si el párrafo es el número 10, solamente me saca el 0, es decir la última cifra del número de párrafo.
He hecho varios intentos, cuando hago un stop en el bucle, con un showmessage, por ejemplo, si sale el 10, pero sin el stop, nada de nada.
¿Qué debo hacer?
Gracias de antemano.
Un saludo.
Tonio.