Le variabili di tipo Integer, essendo di due byte, possono assumere valori massimi di 2^15, cioè 32768. Usa una variabile Long.