glClearColor(
    RedComponent(FColorBackground) / 255,
    GreenComponent(FColorBackground) / 255,
    BlueComponent(FColorBackground) / 255,
    AlphaComponent(FColorBackground) / 255);

procedure TCad3D.RenderObjects;
var
  i: Integer;
begin
  //glDisable(GL_DEPTH_TEST);
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_Normalize);
  //glFrontFace(GL_CW);

  if Culling then
    glEnable(GL_CULL_FACE)
  else
    glDisable(GL_CULL_FACE);

  if AntiAliasing then
    glEnable(GL_LINE_SMOOTH)
  else
    glDisable(GL_LINE_SMOOTH);

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;

  if Wireframe then
    glPolygonmode(GL_FRONT_AND_BACK, GL_LINE)
  else
    glPolygonmode(GL_FRONT_AND_BACK, GL_FILL);

  FColorBackGround := SetAlpha(FColorBackGround, 0);


  //Objects werden vor dem Durchlauf auf Tiefe sortiert!!
  Objects.ObjekteSortieren(FCamera.CameraPosition, FCamera.PointOfRotation);

  //http://www.delphigl.com/forum/viewtopic.php?f=2&t=5107&start=15&hilit=transparente+objekte

  glDisable(GL_BLEND);
  for i := 0 to Objects.Count - 1 do
  begin
    // Die Objects, die opak (massiv, bzw alpha = 255) sind, werden bei dem Durchlauf gezeichnet
    with Objects.Items[i] do
      if AlphaComponent(Color[0]) >= 255 then
      begin
        DrawObjects(i, 0);
      end;
    DrawSolidObjects(i, 0);
  end;

  glEnable(GL_BLEND);
  for i := 0 to Objects.Count - 1 do
    //Die Objects, die transparent (alpha < 255) sind werden bei dem Durchlauf
    // mit verschiedenen gezeichnet
    with Objects.Items[i] do
      if AlphaComponent(Color[0]) < 255 then
      begin
        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
        //glBlendFunc(GL_ONE_MINUS_DST_ALPHA,GL_DST_ALPHA); //test
        glDepthFunc(GL_GREATER);
        glDepthMask(FALSE);
        DrawObjects(i, 1);

        //diese Einstellung ist fürs Zeichnen deer Objektkanten
        glPushAttrib(GL_ALL_ATTRIB_BITS);
        glPolygonmode(GL_FRONT_AND_BACK, GL_LINE);
        glLineWidth(2);
        DrawObjects(i, 2);
        glPopAttrib;

        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
        glDepthFunc(GL_LEQUAL);
        glDepthMask(true);
        DrawObjects(i, 3);

        //diese Einstellung ist fürs Zeichnen deer Objektkanten
        glPushAttrib(GL_ALL_ATTRIB_BITS);
        glPolygonmode(GL_FRONT_AND_BACK, GL_LINE);
        glLineWidth(2);
        DrawObjects(i, 4);
        glPopAttrib;
      end;

  glDepthFunc(GL_GREATER);
  glDepthMask(FALSE);
  glBlendFunc(GL_ONE_MINUS_DST_ALPHA, GL_DST_ALPHA);
  // Die Objects, die opak (massiv, bzw alpha = 255) sind, werden bei dem Durchlauf gezeichnet
  for i := 0 to Objects.Count - 1 do
  begin
    with Objects.Items[i] do
      if AlphaComponent(Color[0]) >= 255 then
      begin
        DrawObjects(i, 5);
      end;
    DrawSolidObjects(i, 5);
  end;

  //nur für mein Projekt wichtige Einstellung.
  //Die Systemachsen sind nicht in der Objects-liste
  if Axis then
    Draw.DrawAxis(AxisLength, ColorAxis1);

  glDisable(GL_BLEND);
  glDepthFunc(GL_LEQUAL);
  glDepthMask(True);
  // Die Objects, die opak (massiv, bzw alpha = 255) sind, werden bei dem Durchlauf gezeichnet
  for i := 0 to Objects.Count - 1 do
  begin
    with Objects.Items[i] do
      if AlphaComponent(Color[0]) >= 255 then
      begin
        DrawObjects(i, 6);
      end;
    DrawSolidObjects(i, 6);
  end;

  //nur für mein Projekt wichtige Einstellung.
  //Die Systemachsen sind nicht in der Objects-liste
  if Axis then
    Draw.DrawAxis(AxisLength, ColorAxis1);
end;