[Помогите!] перемещение в opengl

[Softwarer]

В общем-то, у меня не происходит перемещение вдоль осей.

KeyPress:

 case Key of

      '6': glTranslatef(-cam.speed, 0, 0);
      '4': glTranslatef( cam.speed, 0, 0);
      '8': glTranslatef(0,cam.speed, 0);
      '2': glTranslatef(0,  cam.speed, 0);
      '+': glTranslatef(0, 0, cam.speed);
      '-': glTranslatef(0, 0, cam.speed);

  InvalidateRect(Form1.Handle, nil, false);
end;

Я даже перерисовываю окно, но безрезультатно. У меня такое работает на KeyDown'e, когда я Ifами проверяю нажатие кнопки и жму при этом на форму. Почему не работает на KeyPress'e ?