Закрашеная звезда

{
        Repaint();
        double p=M_PI,r1,r2;
        int x=600, y=350,i=1,n;
        n=StrToInt(StaticText6->Caption);
        r1=StrToInt(StaticText4->Caption);
        r2=StrToInt(StaticText5->Caption);
 
        Canvas->MoveTo(x+r2, y);
 
        while (i<=n*2)
        {
           Canvas->LineTo(x+cos(i*p/n)*r1, y+sin(i*p/n)*r1);
           i=i+1;
           Canvas->LineTo(x+cos(i*p/n)*r2, y+sin(i*p/n)*r2);
           i=i+1;
        }
}

Canvas->Brush->Color=clGreen;
Canvas->FloodFill(x,y,clBlack,fsBorder);

Repaint();
        double p=M_PI,r1,r2;
        int x=600, y=350,i=1,n;
        n=StrToInt(StaticText6->Caption);
        r1=StrToInt(StaticText4->Caption);
        r2=StrToInt(StaticText5->Caption);
TPoint* P=new TPoint[n*2+1];
        while (i<=n*2)
        {  P[i-1].x=x+cos(i*p/n)*r1;
           P[i-1].y=y+sin(i*p/n)*r1;
           i=i+1;
           P[i-1].x=x+cos(i*p/n)*r2;
           P[i-1].y=y+sin(i*p/n)*r2;
           i=i+1;
        }
P[n*2]=P[0];
 
Canvas->Brush->Color=clRed;
Canvas->Polygon(P,n*2+1);
 
упс и чуть не забыл
delede[] P;