Se salta el número 10, el 20 y el 21...

[lupinfree]

Hola, fijate que: Cuando I= 10 pos vale 2, cuando I=20 pos vale 4 y cuando I=21 pos vale 21.
No le veo la utilidad del If Pos.... yo haria solamente

Código Delphi [-]
S := S + Sub;

y listo el pollo, quedando la cadena
010203040506070809101112131415161718192021222324.

para que veas cuando tenes la cadena completa en el segundo termino esta el 10. Y Pos te toma ese lugar.
y asi con el 20 y 21 . Marqué con rojo las posiciones que ve.