aspetta ci sono quasi.

l'errore me lo da, sembrerebbe a causa del vettore Ncasuale[i] e forse a cusa dell'operazione IntToStr(NCasuale[i])