OpenGL бегущая строка

var
l : integer = 640;
procedure DrawGLScene; cdecl;
begin
  dec(l);
  if l < -100 then l :=640;//Хотел что-бы текст полностью выбегал и только потом появлялся вновь. Но не получилось=)
                                  // При достижении текста 0-й точки он просто исчезал.
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glEnter2D;
 
  glColor3f(1, 1, 1);
  glWrite(l, glGetViewportHeight - 60, GLUT_BITMAP_9_BY_15, 'GLUT_BITMAP_9_BY_15');
  
  glLeave2D;
 
  glutSwapBuffers;
 
  FrameRendered;
end;

procedure glEnter2D;
begin
  glMatrixMode(GL_PROJECTION);
  glPushMatrix;
  glLoadIdentity;
  gluOrtho2D(0, glGetViewportWidth, 0, glGetViewportHeight);
 
  glMatrixMode(GL_MODELVIEW);
  glPushMatrix;
  glLoadIdentity;
 
  glDisable(GL_DEPTH_TEST);
end;
 
procedure glLeave2D;
begin
  glMatrixMode(GL_PROJECTION);
  glPopMatrix;
  glMatrixMode(GL_MODELVIEW);
  glPopMatrix;
 
  glEnable(GL_DEPTH_TEST);
end;
procedure glWrite(X, Y: GLfloat; Font: Pointer; Text: String);
var
  I: Integer;
begin
  glRasterPos2f(X, Y);
  for I := 1 to Length(Text) do
    glutBitmapCharacter(Font, Integer(Text[I]));
end;