[Electronic_Arts]

Точно не помню по моему так

Код:

begin
case key of
38: edit1.text:=inttostr(strtoint(edit1.text)+1);
40: edit1.text:=inttostr(strtoint(edit1.text)-1);
end;
end;

не забудь что первоначальное значение на Edit должен быть число - а не текст