[Rokuell]

Идея правильная, но ,видимо, с подобным ты раньше не сталкивался ,
немного измени:

Код:

if key=38 then key:=0;  // стрелка Вверх
if key=40 then key:=0; // стрелка Вниз

Проверил - у меня работает.