function Tfrm3DRender.LoadProgram(
  sources: array of const): GLhandleARB;
var
  i, linked: Integer;
  shader: GLhandleARB;
  log: String;
begin

  Result := glCreateProgramObjectARB;

  i := 0;
  while i < High(sources) do
  begin
    shader := LoadShader(sources[i+1].VPChar, sources[i].VInteger);

    glAttachObjectARB(Result, shader);
    glDeleteObjectARB(shader);

    INC(i, 2);
  end;

  glLinkProgramARB(Result);
  glGetObjectParameterivARB(Result, GL_OBJECT_LINK_STATUS_ARB, @linked);
  log := GetInfoLog(Result);



end;

function Tfrm3DRender.LoadProgramFromFiles(
  const filenames: array of const): GLhandleARB;
var
  i, linked: Integer;
  shader: GLhandleARB;
  log: String;
begin

  Result := glCreateProgramObjectARB;

  i := 0;
  while i < High(filenames) do
  begin
    shader := LoadShaderFromFile(filenames[i+1].VPChar, filenames[i].VInteger);

    glAttachObjectARB(Result, shader);

    INC(i, 2);
  end;

  glLinkProgramARB(Result);
  glGetObjectParameterivARB(Result, GL_OBJECT_LINK_STATUS_ARB, @linked);
  log := GetInfoLog(Result);

end;

function Tfrm3DRender.LoadShader( src: String;
   stype: GLenum): GLhandleARB;
var
  source: PChar;
  compiled, len: Integer;
  log: String;

begin

  source:=PChar(src);
  len := Length(src);

  Result := glCreateShaderObjectARB(stype);

  glShaderSourceARB(Result, 1, @source, @len);
  glCompileShaderARB(Result);
  glGetObjectParameterivARB(Result, GL_OBJECT_COMPILE_STATUS_ARB, @compiled);
  log := GetInfoLog(Result);

  if compiled <> 1 then
  begin
    //error compiling
  end;

end;

function Tfrm3DRender.LoadShaderFromFile( filename: String;
   stype: GLenum): GLhandleARB;
var
  txt: TStringList;
begin
  txt := TStringList.Create;
  txt.LoadFromFile(filename);
  Result := LoadShader(txt.Text, stype);
  txt.Free;
end;

function Tfrm3DRender.GetInfoLog(s: GLhandleARB): String;
var
  blen, slen: Integer;
  infolog: array of Char;
begin

  glGetObjectParameterivARB(s, GL_OBJECT_INFO_LOG_LENGTH_ARB, @blen);

  if blen > 1 then
  begin
    SetLength(infolog, blen);
    glGetInfoLogARB(s, blen, slen, @infolog[0]);
    Result := String(infolog);
    Exit;
  end;

  Result := '';
end;

function Tfrm3DRender.LinkPrograms(
  programs: array of GLhandleARB): GLhandleARB;
var
  i, linked: Integer;
  shader: GLhandleARB;
  log: String;
begin

  Result := glCreateProgramObjectARB;

  i := 0;
  while i <= High(programs) do
  begin
    shader := programs[i];

    glAttachObjectARB(Result, shader);

    INC(i);
  end;

  glLinkProgramARB(Result);
  glGetObjectParameterivARB(Result, GL_OBJECT_LINK_STATUS_ARB, @linked);
  log := GetInfoLog(Result);
end;

procedure Tfrm3DRender.LoadShaders;
var s1,s2:string;
begin
     if isShaders then
     begin
          s1:=mVertex3.Text;
          s2:=mPixel3.Text;
          glvertex := LinkPrograms( [LoadShader(s1, GL_VERTEX_SHADER_ARB),LoadShader(s2, GL_FRAGMENT_SHADER_ARB)] );
     end;
     
end;

glUseProgramObjectARB(glvertex); //вклчюаеш шейдер
... рисуеш что надо с использованием этого шейдера
glUseProgramObjectARB(0); //отключаеш

iuniform: Integer;
iuniform := glGetUniformLocationARB(glvertex, @pass_index[0]); //получаеш индекс переменной в шейдере
glUniform1fARB(iuniform, i);  //устанавливаеш зту переменную в свое значение, тут у меня i это текущий номер прохода рендеринга