diff --git a/Samples/OpenGLABC/Common.pas b/Samples/OpenGLABC/Common.pas
index cbb146ec..e52f2c2d 100644
--- a/Samples/OpenGLABC/Common.pas
+++ b/Samples/OpenGLABC/Common.pas
@@ -1,4 +1,5 @@
 unit Common;
+{$savepcu false}
 
 uses System;
 uses OpenGL;
diff --git "a/Samples/OpenGLABC/\320\242\320\276\321\207\320\272\320\270 \320\275\320\260 \320\277\320\276\320\273\320\265/\320\242\320\276\321\207\320\272\320\270.td" "b/Samples/OpenGLABC/\320\242\320\276\321\207\320\272\320\270 \320\275\320\260 \320\277\320\276\320\273\320\265/\320\242\320\276\321\207\320\272\320\270.td"
index b44977a4..1d8742fb 100644
--- "a/Samples/OpenGLABC/\320\242\320\276\321\207\320\272\320\270 \320\275\320\260 \320\277\320\276\320\273\320\265/\320\242\320\276\321\207\320\272\320\270.td"	
+++ "b/Samples/OpenGLABC/\320\242\320\276\321\207\320\272\320\270 \320\275\320\260 \320\277\320\276\320\273\320\265/\320\242\320\276\321\207\320\272\320\270.td"	
@@ -20,13 +20,19 @@ OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program; bufSize: integer; length: System.IntPtr; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(program: gl_program; bufSize: integer; var length: integer; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(program: gl_program; pname: glProgramProperty; params: System.IntPtr)
 OpenGL.$delegate? = procedure(program: gl_program; pname: glProgramProperty; var params: integer)
 OpenGL.$delegate? = procedure(program: gl_program; shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader; bufSize: integer; length: System.IntPtr; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(shader: gl_shader; bufSize: integer; var length: integer; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; string: Void*; length: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; string: Void*; var length: integer)
+OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; var string: System.IntPtr; length: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; var string: System.IntPtr; var length: integer)
+OpenGL.$delegate? = procedure(shader: gl_shader; pname: glShaderParameterName; params: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; pname: glShaderParameterName; var params: integer)
 OpenGL.$delegate? = procedure(target: glBufferTarget; index: longword; buffer: gl_buffer)
 OpenGL.$delegate? = procedure(x: integer; y: integer; width: integer; height: integer)