Hola,
Por cierto que tengo mal el segundo parametro en estas lineas:
Código Delphi
[-]st=st.SubString(i+1,s.Length()-(i+1));
\menos en la priemra, pero no importo porque el numero era mas grande que lo que habia en al cadena.
Creo que deberia ir
Código Delphi
[-]st=st.SubString(i+1,st.Length()-i));
(la primera si estaba bien)
Saludos