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;