[NumLock]

не должен:

Код:

While i2=i do
 timer1.Interval:=0;