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

{ TForm1 }
//заготовка таблицы
procedure TForm1.FormCreate(Sender: TObject);
begin
with Stringgrid1 do
 begin
  cells[0,0]:='Категория';
  cells[1,0]:='Кол-во';
  cells[0,1]:='Книги';
  cells[0,2]:='Журналы';
  cells[0,3]:='Канцтовары';
  cells[0,4]:='Прочее';
 end;
end;
//заполнение таблицы
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
randomize;
for i:=1 to n do
StringGrid1.Cells[1,i]:=inttostr(100+random(900));
k:=1;
end;
//рисование
procedure TForm1.Button2Click(Sender: TObject);
var s,x0,y0,r,i,x1,y1,x2,y2:integer;
    u:real;
begin
if k=0 then
 begin
  ShowMessage('Вы не вввели данные');
  exit;
 end;
//рисуем диаграмму
s:=0;
for i:=1 to n do
s:=s+strtoint(StringGrid1.Cells[1,i]);
with Image1.Canvas do
 begin
  brush.Color:=clSilver;
  fillrect(cliprect);
  x0:=Image1.Width div 3;
  y0:=Image1.Height div 2;
  r:=100;
  u:=0;
  x1:=0;
  y1:=0;
  for i:=1 to n do
   begin
    u:=u+2*pi*strtoint(StringGrid1.Cells[1,i])/s;
    x2:=x0+round(r*cos(u));
    y2:=y0-round(r*sin(u));
    brush.Color:=cl[i];
    Pie(x0-r,y0-r,x0+r,y0+r,x1,y1,x2,y2);
    x1:=x2;
    y1:=y2;
   end;
 //рисуем легенду
 for i:=1 to n do
  begin
   brush.Style:=bsSolid;
   brush.Color:=cl[i];
   rectangle(x0+r+20,y0-r+(i-1)*40,x0+r+80,y0-r+(i-1)*40+20);
   brush.Style:=bsClear;
   textout(x0+r+90,y0-r+(i-1)*40,StringGrid1.Cells[0,i]+' '
           +formatfloat('0.00',strtoint(StringGrid1.Cells[1,i])*100/s)+'%')
  end;
 end;
end;

Chart1PieSeries1.Add(strtoint(StringGrid1.Cells[1,i]));

Chart1PieSeries1.AddPie(strtoint(StringGrid1.Cells[1,i]),StringGrid1.Cells[0,i],cl[i])

implementation
uses TAChartUtils; // <--- Вот этот модуль

//заготовка таблицы
procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1PieSeries1.Marks.Style := smsLabel; // <--- Вот так
  with Stringgrid1 do
  begin
    cells[0, 0] := 'Категория';
    cells[1, 0] := 'Кол-во';
    cells[0, 1] := 'Книги';
    cells[0, 2] := 'Журналы';
    cells[0, 3] := 'Канцтовары';
    cells[0, 4] := 'Прочее';
  end;
end;

//рисуем диаграмму
Chart1PieSeries1.Clear;
for i:=1 to StringGrid1.RowCount-1 do