Круговая диаграмма

    Series1->Add(3232,"A");
    Series1->Add(1322,"B");
    Series1->Add(1323,"C");
    Series1->Add(6554,"D");
    Series1->Marks->Font->Color = clWhite;
    Series1->Marks->Font->Size = 20;
    Series1->Marks->Transparent = true;
    Series1->Marks->Arrow->Visible = false;
    Series1->Marks->ArrowLength = -60; // <--- Вот оно

void __fastcall TForm1::Button5Click(TObject *Sender)
{
    Series1->Add(3232,"A");
    Series1->Add(1322,"B");
    Series1->Add(1323,"C");
    Series1->Add(6554,"D");
    Series1->Marks->Arrow->Visible = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Chart1AfterDraw(TObject *Sender)
{
    Series1->Marks->Style = smsLabel;
    for(int i = 0; i < Series1->Count(); i++)
    {
        double angle = Series1->Angles[i].MidAngle;
        int xpos = Series1->CircleXCenter + (int)(60.0*cos(angle));
        int ypos = Series1->CircleYCenter - (int)(60.0*sin(angle));
        Chart1->Canvas->Font->Color = clWhite;
        Chart1->Canvas->Font->Style = TFontStyles() << fsBold;
        Chart1->Canvas->Font->Size = 12;
        Chart1->Canvas->RotateLabel(xpos, ypos, Series1->XLabel[i], 0);
    }
    Series1->Marks->Style = smsPercent;
}