Не получается создать шейдер

[AngelOfDeath]

Вылетает ошибка при создании шейдера:

var
v:GLUint;


///////////////////////////////////////////////////
procedure TForm1.SetShader;
var
len:GLint;
begin
v:=glCreateShader(GL_VERTEX_SHADER);//Здесь ошибка
ShowMessage(IntToStr(Length(str)));
len:=Length(str);
glShaderSource(v, 1, @str, @len);
end;

Выскакивает ошибка:
Acess volation at adress 00000000. Read of adress 00000000.
http://kovalexey.my1.ru/GLSL.rar (1,5 мб)