A ver... hoy estoy algo resacoso
donde dice:
Código Delphi
[-]
for cont := indice to trabajados do
debe decir:
Código Delphi
[-]
for cont := indice to (indice + trabajados) do
Si trabajados tiene el valor 12 e índice tiene 7, el bucle que tiene el fallo solo constaría de 12-7 = 5 iteraciones, cuando en realidad, debe hacer 12 iteraciones.
Revisa concienzudamente el código, ya digo... la fresca rubia de anoche me dejó secuelas
Saludos