Delphy 7, помогите пожалуйсто с кодом.(код внутри)

Мне нужно нарисовать круг через пиксели, можете сказать, почему нужно задавать 8 пикселей?
  begin
    y:=y+1;
    x:=x-1;
    p:=p+1+2*y-2*x;
    Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
    Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
      end;
и почему таких вот циклов на простой круг надо именно 6? все работает, мне нужно объяснить почему именно так, а не иначе.