Не могу использовать расширение GL_ARB_vertex_buffer_object

[Dima6120]

Не могу использовать расширение GL_ARB_vertex_buffer_object
При вызове любой из функций выдаёт следующее окно

Вот код

PGLuint = ^GLuint;
TglBindBufferARB = procedure(target: GLenum; buffer: GLuint);
TglDeleteBuffersARB = procedure(n: GLsizei; const buffers: PGLuint);
TglGenBuffersARB = procedure(n: GLsizei; buffers: PGLuint); TglBufferDataARB = procedure(target: GLenum; size: GLsizei; const data: Pointer; usage: GLenum); TglIsBufferARB = function(buffer: GLuint): GLboolean; TglBufferSubDataARB = procedure(target: GLenum; offset: GLsizei; size: GLsizei; const data: Pointer); TglGetBufferSubDataARB = procedure(target: GLenum; offset: GLsizei; size: GLsizei; data: Pointer);
TglMapBufferARB = function(target: GLenum; access: GLenum): Pointer;
TglUnmapBufferARB = function(target: GLenum): GLboolean;
TglGetBufferParameterivARB = procedure(target: GLenum; pname: GLenum; params: Pointer);
TglGetBufferPointervARB = procedure(target: GLenum; pname: GLenum; params: Pointer);
…
glBindBufferARB:TglBindBufferARB;
glDeleteBuffersARB:TglDeleteBuffers ARB;
glGenBuffersARB:TglGenBuffersARB;
glBufferDataARB:TglBufferDataARB;
glIsBufferARB:TglIsBufferARB;
glBufferSubDataARB:TglBufferSubData ARB;
glGetBufferSubDataARB:TglGetBufferS ubDataARB;
glMapBufferARB:TglMapBufferARB;
glUnmapBufferARB:TglUnmapBufferARB;
glGetBufferParameterivARB:TglGetBuf ferParameterivARB;
glGetBufferPointervARB:TglGetBuffer PointervARB;

…
function Load_GL_ARB_vertex_buffer_object: Boolean;
var extstring: String;
begin

Result := FALSE;
extstring := String(PChar(glGetString(GL_EXTENSI ONS)));

glBindBufferARB := wglGetProcAddress('glBindBufferARB' );
if not Assigned(glBindBufferARB) then Exit;
glDeleteBuffersARB := wglGetProcAddress('glDeleteBuffersA RB');
if not Assigned(glDeleteBuffersARB) then Exit;
glGenBuffersARB := wglGetProcAddress('glGenBuffersARB' );
if not Assigned(glGenBuffersARB) then Exit;
glIsBufferARB := wglGetProcAddress('glIsBufferARB');
if not Assigned(glIsBufferARB) then Exit;
glBufferDataARB := wglGetProcAddress('glBufferDataARB' );
if not Assigned(glBufferDataARB) then Exit;
glBufferSubDataARB := wglGetProcAddress('glBufferSubDataA RB');
if not Assigned(glBufferSubDataARB) then Exit;
glGetBufferSubDataARB := wglGetProcAddress('glGetBufferSubDa taARB');
if not Assigned(glGetBufferSubDataARB) then Exit;
glMapBufferARB := wglGetProcAddress('glMapBufferARB') ;
if not Assigned(glMapBufferARB) then Exit;
glUnmapBufferARB := wglGetProcAddress('glUnmapBufferARB ');
if not Assigned(glUnmapBufferARB) then Exit;
glGetBufferParameterivARB := wglGetProcAddress('glGetBufferParam eterivARB');
if not Assigned(glGetBufferParameterivARB) then Exit;
glGetBufferPointervARB := wglGetProcAddress('glGetBufferPoint ervARB');
if not Assigned(glGetBufferPointervARB) then Exit;
Result := TRUE;
end;

Подскажите что делать

[notHaker]

это значит что его не поддерживает данная версия драйвера (или того хуже карта)

[Dima6120]

У меня NVIDIA GeForce 9600 GT есть поддержка этих расширений!У меня даже функция, проверяющая поддержку этих расширений, говорит что эта поддержка есть!

[notHaker]

Значит просто не инициализовал библиотеку.

[Dima6120]

Теперь всё нормально!
Просто инициализировал не там где надо!