with Uniform do begin

      xxx := UniformLocation('hjhjgfhfghfghfgh');

      WorldMatrix_id := UniformLocation('WorldMatrix');

      VecColor_id := UniformLocation('VecColor');

      LightPosition_id := UniformLocation('LightPosition');

      ifTextures_id := UniformLocation('ifTexturen');

      ifMultiTextures_id := UniformLocation('ifMultiTexturen');

      ifColorVertex_id := UniformLocation('ifColorVertex');

      ifLight_id := UniformLocation('ifLight');

      tex0_id := UniformLocation(PGLCharARB('myTextureSampler0'));

      tex1_id := UniformLocation(PGLCharARB('myTextureSampler1'));

      glUniform1i(tex0_id, 0);

      glUniform1i(tex1_id, 1);

    end;