Листинг 5

PieChart := ChartSpace1.Charts.Add(1);
   With PieChart do
   Begin
     Type_ := chChartTypePie;
   // Категории - первое поле
     SetData(chDimCategories, 0, 0);
   // Значения - второе поле
     SetData(chDimValues, 0, 1);
     SeriesCollection.Item[0].Explosion := 20;
   // Добавим "легенду"
     HasLegend := True;
     Legend.Position := chLegendPositionBottom;
   //  и заголовок
     HasTitle        := True;
     Title.Caption   := ‘Sales by Category for 1997’;
     Title.Font.Set_Bold(True);
     Title.Font.Set_Size(11);
     WidthRatio := 75;
   // Покажем данные как проценты
     With SeriesCollection.Item[0].DataLabelsCollection.Add do
     Begin
      HasValue       := False;
      HasPercentage  := True;
      Font.Set_Size(7);
     End
   End;