opengl, пиксели

procedure TMainFm.Button2Click(Sender: TObject);
var x,y,i:integer;
begin
//wglMakeCurrent(pnlPaint.Handle, Mainfm.hrc);
 //glClearColor (0.0, 0.0, 0.0, 1.0); // цвет фона
//glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
//InitMndlbrot(MaxIter);
wglMakeCurrent(pnlPaint.Handle, Mainfm.hrc);
 glClearColor (0.0, 0.0, 0.0, 1.0); // цвет фона
glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
 scale:=scale*1.5;
 
 
glScalef(scale,scale,1.0);//МАСШТАБИРОВАНИЕ
glMatrixMode(GL_PROJECTION);
DrawFractal;
end;
 
procedure TMainFm.DrawFractal;
var i,x,y:integer;
begin
 
 
  glEnable(GL_POINT_SMOOTH);
 
glBegin(GL_POINTS);
i:=0;
 for x:=0 to  pnlPaint.width-1 do
 for y:=0 to pnlPaint.Height-1 do
 
 begin
 
 glColor3ub(col[0][i],col[1][i],col[2][i]);
 glVertex2i(x,y);
 
 inc(i);
 end;
 glEnd;
 
 SwapBuffers(DC);
end;
procedure TMainFm.FormCreate(Sender: TObject);
begin
PnlPaint:=TMyPanel.Create(MainFm);
MaxIter:=1000;
pnlPaint.Parent:=MainFm;
pnlPaint.Align:=alClient;
//pnlPaint.Visible:=false;
DC := GetDC (pnlPaint.Handle);
SetDCPixelFormat (DC);
hrc := wglCreateContext (DC);
wglMakeCurrent (DC, hrc);
glViewport( 0,0,pnlPaint.Width,pnlPaint.Height );
    glMatrixMode( GL_PROJECTION );
    glLoadIdentity();
glOrtho( 0, pnlPaint.Width, pnlPaint.Height, 0, -1, 1);
//gluOrtho2D (0, pnlPaint.Width, 0, pnlPaint.Height)  ;
  glMatrixMode( GL_MODELVIEW );
  //glLoadIdentity();
  flag:=false;
  scale:=1.0;
  _r:=200;
  _g:=200;
  _b:=100;
end;