uses
  System.SysUtils,
  GLFW,
  GLFW.Glad;
  
begin
  var Window: PGLFWwindow;

  // Initialize the library
  if glfwInit() = GLFW_FALSE then
    Exit;

  // Create a windowed mode window and its OpenGL context
  Window := glfwCreateWindow(640, 480, 'Hello World', nil, nil);
  if (Window = nil) then
  begin
    glfwTerminate;
    Exit;
  end;

  // Make the window's context current
  glfwMakeContextCurrent(Window);

  // Load OpenGL
  gladLoadGL(TLoadProc(glfwGetProcAddress));

  // Loop until the user closes the window
  while glfwWindowShouldClose(Window) = GLFW_FALSE do
  begin
    // Render here
    glClear(GL_COLOR_BUFFER_BIT);

    // Clear window
    glClearColor(1.0/30.0, 1.0/31.0, 1.0/30.0, 1.0/1.0);

    // Swap front and back buffers
    glfwSwapBuffers(Window);

    // Poll for and process events
    glfwPollEvents;
  end;

  glfwDestroyWindow(Window);

  glfwTerminate;
end.