[DungeonLords]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Angle := Angle + 1.0; // увеличиваем угол
   If (Angle >= 360.0) then Angle := 0.0;  // если совершён полный оборот, то вернуть в 0
  InvalidateRect(Handle, nil, False); // не уверен, что нужно
SwapBuffers(DC);
end;

Ух, как я давно уже не видел чистого OpenGL кода, как увидел твой пост так и просиял .