r := TBitmap.Create;
     r.LoadFromFile('cursor.bmp');
     n := TBitmap.Create;
     n.LoadFromFile('cursor_bland.bmp');

         For i := 0 to 127 do
     For j := 0 to 127 do begin
       bits2 [i, j, 0] := GetRValue(r.Canvas.Pixels[i,j]);
       bits2 [i, j, 1] := GetGValue(r.Canvas.Pixels[i,j]);
       bits2 [i, j, 2] := GetBValue(r.Canvas.Pixels[i,j]);
       bits2 [i, j, 3] := GetBValue(n.Canvas.Pixels[i,j]);

   end;
   glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_nearest);
   glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_nearest);
   gluBuild2DMipmaps(GL_TEXTURE_2D,4,128,128,GL_RGBA,GL_UNSIGNED_BYTE,@bits2);
   glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL);
{________________________________________________________}

glEnable(GL_TEXTURE_2D);
glEnableClientState(GL_TEXTURE_COORD_ARRAY);
glEnableClientState(GL_VERTEX_ARRAY);
glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA);
glEnable(GL_BLEND);

   glVertexPointer(3, GL_FLOAT, 0, @bVertex);
glTexCoordPointer(3,GL_FLOAT,0,@bVertex);
glDrawArrays(gl_quads, 0, 4);

glDisable(GL_TEXTURE_2D);
glDisableClientState(GL_TEXTURE_COORD_ARRAY);
glDisableClientState(GL_VERTEX_ARRAY);
glDisable(GL_BLEND);