Проще с нуля. Тем более код написан нечитаемо...
1) Генеришь массив чисел случайно (randomize; random(x));
2) по событию нажатия на кнопку "СТАРТ" выписываешь этот массив в Edit1; ставишь
Код:
Timer1.Interval:=1000;
Timer1.Enabled:=true;
где Timer1 - TTimer;
3) По событию таймера "onTimer" делаешь
Код:
Edit1.Text:='';
button2.visible:=true;
где button2 - невидимая изначально кнопка "Закончить тест"
4) По нажатию кнопки "Закончить тест" считываешь строку из Edit1.Text, разбиваешь на числа по пробелам (pos(' ',s)), и ищешь в полученном массиве числа из изначального. Считаешь их количество и пишешь результаты.