Распределение объектов по окружности

[Torn]

Прошу помощи, Уважаемые форумчане! Необходимо равномерно расположить вершины графа по окружности с центром в середине TImage, вершины представляют собой круги. При исполнении программы рисуется лишь один круг. Подскажите пожалуйста, как исправить.

     int R, ch, x, y;
     double ugol,alpha, beta;
     ugol=360/N;
     R=100;
     for(int i=0; i<N; i++)
     {
      ch=(int)(N*ugol)/90+1;
      alpha=(int)(N*ugol)%90;
      beta=90-alpha;

      switch(ch)
      {
       case 1:
       x=R*cos(alpha);
       y=R*cos(beta);
       break;
       case 2:
       x=-R*cos(beta);
       y=R*cos(alpha);
       break;
       case 3:
       x=-R*cos(alpha);
       y=-R*cos(beta);
       break;
       case 4:
       x=R*cos(beta);
       y=-R*cos(alpha);
       break;
       }
        Image1->Canvas->Ellipse(cx+R+x,cy+y,cx+R+20+x,cy+20+y);
      }

P.S. Пишу не себе, если до утра не доделаю моего товарища отчислят
P.P.S. cx, cy - координаты центра картинки, находятся в части кода, в правильности работы которой у меня нет сомнений.

[Chea]

ugol=360/N;
......

for(int i=0; i<N; i++)
{
ch=(int)(N*ugol)/90+1

Подставляем ugol в формулу получаем:
ch=(int)(360)/90+1


Скорее всего за место N надо i