Рисование фигуры в PaintBox

private:    // User declarations
 
        double posX, posXv;
        double posY, posYv;
        bool up,down;
        double color1R,color1G,color1B, color1v;
        double color2R, color2G,color2B,color2v;
        int R;
        double r1, r1v, r2, r2v;
        void nextColor(void);
        void nextPos(void);
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 
        posX =  0; posXv = 1;
        posY = 100; posYv = 1;
        up = true; down = false;
        color1G = 77;
        color1B = 255;
        color1R = 0;
        color1v = 1,275;
        color2G = 255;
        color2R = 255;
        color2B = 0;
        color2v = 1,275;
        R = 100;
        r1 = 0; r1v = 0.08;
        r2 = 0; r2v = -0.03;
 
}
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
        int n = 5;
        Graphics::TCanvas* a = ((TPaintBox*)Sender)->Canvas;
        a->Brush->Style = bsSolid;
        a->Pen->Style = psSolid;
 
 
        a->Brush->Color = RGB(color1R, color1G, color1B);
        a->Pen->Color = a->Brush->Color;
        a->Rectangle(posX, posY, posX + R, posY + R);
 
        double cx = posX + R / 2;
        double cy = posY + R / 2;
        double cr = R / 2;
        double pi10 = pi / 5;
 
 
        a->Brush->Color = RGB(color2R, color2G, color2B);
        a->Pen->Color = a->Brush->Color;
 
        a->PenPos = Point(cx + cos(r2) * cr/2, cy + sin(r2) * cr/2);
        a->LineTo(cx-cos(r2+1*pi10)*cr, cy-sin(r2+1*pi10)*cr);
        a->LineTo(cx+cos(r2+2*pi10)*cr/2, cy+sin(r2+2*pi10)*cr/2);
 
        a->Brush->Color = RGB(color1R, color1G, color1B);
        a->Pen->Color = a->Brush->Color;
}