Ruckeln beim verschieben eines Raumschiffs

[Nils_13]

Hi,

wenn ich die linke oder rechte Pfeiltaste drücke, ruckelt es. DoubleBuffered hilft auch nicht. Kennt ihr eine Lösung oder andere Methode ? Es handelt sich hierbei um OpenGL. Das Raumschiff soll sich (man muss ja auch schnell vor schüssen etc. ausweichen) schnell und flutschig bewegen können.

Delphi-Quellcode:

var
  Leftp : integer;

{ ... }
procedure TGLForm.Render(Sender : TObject; var Done : Boolean);
{ ... }
// Position
glTranslatef(Leftp, 240, 0);

{ ... }
end;

{ ... }

procedure TGLForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RIGHT then
    Leftp := Leftp + 1 + 1;
  if Key = VK_LEFT  then
    Leftp := Leftp - 1 - 1;
end;