type
 TSide = record
    fColor : TColor;
    fTex   : TglBitmap2D;   
 end;
...
var
 Sides : Array [1..6] of TSide;
...
...
If (inverted)
    Then i := -1
    Else i := +1;

  dx := 0.5 * dx;
  dy := 0.5 * dy;
  dz := 0.5 * dz;

   glBegin(GL_QUADS);
    // left (inverted: right)
    glColor3ub(GetRValue(Sides[1].fColor), GetGValue(Sides[1].fColor), GetbValue(Sides[1].fcolor));
    if assigned(Sides[1].fTex) then
     Sides[1].fTex.bind
      else
       glDisable(GL_TEXTURE_2D);


    glNormal3f(-1, 0, 0);
    glTexCoord2f(            toffset[0],             toffset[1]);
    glVertex3f(-dx*i + voffset[0], -dy + voffset[1], -dz + voffset[2]);
    glTexCoord2f(tscale[0] + toffset[0],             toffset[1]);
    glVertex3f(-dx*i + voffset[0], -dy + voffset[1], +dz + voffset[2]);
    glTexCoord2f(tscale[0] + toffset[0], tscale[1] + toffset[1]);
    glVertex3f(-dx*i + voffset[0], +dy + voffset[1], +dz + voffset[2]);
    glTexCoord2f(            toffset[0], tscale[1] + toffset[1]);
    glVertex3f(-dx*i + voffset[0], +dy + voffset[1], -dz + voffset[2]);

    glColor3ub(GetRValue(Sides[2].fColor), GetGValue(Sides[2].fColor), GetbValue(Sides[2].fcolor));
    if assigned(Sides[2].fTex) then
     Sides[2].fTex.bind
      else
       glDisable(GL_TEXTURE_2D);
    // right (inverted: left)

      if assigned(x13d.stage.Sides[i].fTex) then
       x13d.stage.Sides[i].fTex.free;

      x13d.Stage.Sides[i].fTex:= TglBitmap2d.Create(AdvFilenameEdit1.Filename);
      x13d.Stage.Sides[i].fTex.Target := GL_TEXTURE_2D;
      x13d.Stage.Sides[i].fTex.SetWrap(GL_REPEAT, GL_REPEAT, GL_REPEAT);
      x13d.stage.Sides[i].fTex.GenTexture(false);