procedure TForm1.Mlha;
var
  b,g,r: glfloat;   //barva mlhy
begin
  glEnable(GL_FOG);                    //zapne mlhu
  glFogi(GL_FOG_MODE, GL_EXP);         //vlastnost mlhy
  glFogf(GL_FOG_DENSITY, 0.5);         //intenzita mlhy
  b := 0.7;                            //barva mlhy
  g := 0.7;
  r := 0.7;
  glFogfv (GL_FOG_COLOR, @b);
  glFogfv (GL_FOG_COLOR, @g);
  glFogfv (GL_FOG_COLOR, @r);
  glFogf (GL_FOG_START, 1.0);           //bod, od kterého se začíná šířit mlha
  glFogf (GL_FOG_END, 4.0);             //bod, od kterého je mlha neprůhledná

  Edit1.Text := FloatToStr(r);          // nevím proč, ale bez tohoto řádku nefungují barvy
end;