With Delphi Tokyo I get an Error "Assertion failed" in PasGlViewer.pas at line 1415
Assert(Status=GL_FRAMEBUFFER_COMPLETE);