Ayuda con error list index out of bounds

[danielmj]

Hola, después de mucho tiempo sin entrar y casi el mismo sin hacer nada en delphi (por trabajo), vuelvo buscando vuestra ayuda y conocimientos y más despues del tiempo sin tocar nada de programación, pero el tiempo muerto es mucho (trabajo de noche), así que me puse con una tonteria, pero una tonteria que me trae de cabeza. Es el tipico programa para sacar combinaciones de la loteria. El programa corre y no da error, hasta que le pido los seis numeros mas repetidos y entonces me tira el error "list index out of bounds (6)".

Os he adjuntado el archivo rar con todo el programa. El error lo da cuando se pulsa el boton "Buscar repeticiones"
Está hecho en xe7 por que una vez consiga que haga lo que quiero me gustaria pasarlo a android despues claro, de cambiar las 4 cosas que sean necesarias. También unso un hilo de ejecucion y no tengo ni idea de si funcionara en android, pero bueno paso a paso, ahora lo que me trae loco es ese error al mostrar resultados.

Espero vuestra ayuda, un saludo a todos.
Ah, por cierto, el código que deberia mostrar el resultado es una respuesta (creo) que de ecfisa que ya me ayudo con este problema hace mucho tiempo, incluso tengo el ejemplo que el me paso y que NO da error, pero a mi en xe7, si.