Разбить изображения на 20 ровных сектора и подсчитать количество черных пикселов в каждом из найденых секторов

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo1->Clear();
 
TRect Rect( 0, 0, Image1->Width, Image1->Height );
  int n = 20;
  unsigned int w = Image1->Width, h = Image1->Height;
  unsigned int max = w > h ? w : h;
  Image1->Canvas->Pen->Color = clRed;
  for( double count = 0; count <= 5; count+=5./n ) //просто изображение линий
    {
    Image1->Canvas->MoveTo( w/2, h/2 ); //почему "Соответственно нули"????
    Image1->Canvas->LineTo( w/2 + max * cos(2*M_PI*count/n), h/2 + max * sin(2*M_PI*count/n) );
    }
 
 
 
int *ArrTriangle = new int[n];
memset( ArrTriangle, 0, n*sizeof( int ) );
 
const TColor ColorFont = clBlack,
             ColorBack = clWhite;
 
for( unsigned int x = 0; x<w;  x++ )
  for( unsigned int y = 0; y<h; y++ )
    if( GetPixel( Image1->Canvas->Handle, x, y ) == ColorFont )
      for( unsigned int i = 0; i < n; i++ ) // или вы имели в виду этот цикл нужно изменить на 
 //for( double count = 0; count <= 5; count+=5./n ) ???
        {
 
        int x_center = 0,   // начало координат                            
            y_center = 0,   //                                
            x_angle = max * cos( 2*M_PI*i/n ),   // конечная точка вектора х       
            y_angle = max * sin( 2*M_PI*i/n ),   //конечная точка вектора y       
            x_curr = x,                                       
            y_curr = y;                                    
        int D1 = (x_curr - x_center) * (y_angle - y_center) - (y_curr - y_center) * (x_angle - x_center);
                                                                
        int x_next_angle = w + max * cos( 2*M_PI*(i+1)/n ),//следующая координата вектора х
            y_next_angle = h + max * sin( 2*M_PI*(i+1)/n );//следующая координата вектора y
 
        int D2 = (x_curr - x_center) * (y_next_angle - y_center) - (y_curr - y_center) * (x_next_angle - x_center);
 
 
        if( D1 >= 0 && D2 < 0 )
          ArrTriangle[i]++;
 
        }
 
int summ(0);
for(  int i = 0; i < n; i++ )
  {
  summ += ArrTriangle[i];
  Memo1->Lines->Add( ArrTriangle[i] );
  }
Memo1->Lines->Add( "-----------" );
Memo1->Lines->Add( summ );
}

  const n = 20;
  Word i, j, line_length, w = Image1->Width, h = Image1->Height, l = Left + Image1->Left, t = Top + Image1->Top;
  Word border = (Width-ClientWidth)/2, topborder = Height-ClientHeight-border;
 
  Image1->Canvas->Pen->Color = clRed;
  for (i = 0; i <= n; i++)
  {
    Image1->Canvas->MoveTo(0, 0);
    line_length = w * tan(M_PI/2*i/n);
    if (line_length <= h)
      Image1->Canvas->LineTo(w, line_length);
    else
    {
      line_length = h * tan(M_PI/2*(1-1.*i/n));
      Image1->Canvas->LineTo(line_length, h);
    }
  }

  const n = 20;
  Word i, j, line_length, w = Image1->Width, h = Image1->Height, l = Left + Image1->Left, t = Top + Image1->Top;
  Word border = (Width-ClientWidth)/2, topborder = Height-ClientHeight-border;
 
/*
  Image1->Canvas->Pen->Color = clRed;
  for (i = 0; i <= n; i++)
  {
    Image1->Canvas->MoveTo(0, 0);
    line_length = w * tan(M_PI/2*i/n);
    if (line_length <= h)
      Image1->Canvas->LineTo(w, line_length);
    else
    {
      line_length = h * tan(M_PI/2*(1-1.*i/n));
      Image1->Canvas->LineTo(line_length, h);
    }
  }
*/
 
  HRGN region[n];
  TPoint points[3];
  points[0] = Point(l + border, t + topborder);
  for (i = 0; i < n; i++)
  {
    for (j = 0; j <= 1; j++)
    {
      line_length = w * tan(M_PI/2*(i+j)/n);
      if (line_length <= h)
        points[j+1] = Point(l + border + w, t + topborder + line_length);
      else
      {
        line_length = h * tan(M_PI/2*(1-1.*(i+j)/n));
        points[j+1] = Point(l + border + line_length, t + topborder + h);
      }
    }
    region[i] = CreatePolygonRgn(points, 3, ALTERNATE);  // or WINDING ??  as u want
  }
 
/*
  for (i = 0; i < n; i++)
  {
    PaintRgn(GetDC(0), region[i]);  // отрисовка регионов (для проверки расположения областей)
  }
*/
 
  Byte k;
  unsigned __int64 point_count[n] = {0}, points_count = 0;
  for(j = 0; j < h; j++)
    for (i = 0; i < w; i++)
      if (Image1->Canvas->Pixels[i][j] == clBlack)
      {
        points_count++;
        for (k = 0; k < n; k++)
          if (PtInRegion(region[k], l + border + i, t + topborder + j))
            point_count[k]++;
      }
 
  String res = "Регион: кол-во черных пикселей\n";
  unsigned __int64 sum = 0;
  for (i = 0; i < n; i++)
  {
    res += String(i+1) + ": " + String(point_count[i]) + "\n";
    sum += point_count[i];
  }
  ShowMessage(res + "Всего черных пикселей: " + String(points_count) + " (проверка: " + String(sum) + ").");
 
  for (i = 0; i < n; i++)
    DeleteObject(region[i]);