用ＣＨＡＲ表示数值

TChart功能就是将一组数据，按图形显示出来。
一、定义三全数组
  A:array[0..60] of string;              // 项目 名称
  C:array[0..60] of Integer;             // 项目 数值 
  Color:array [0..60] of TColor;         // 色彩
二、向数组中赋值
  。。。。。。
三、显示
 Chart1.SeriesList.Clear;
  Chart1.View3D:=True;
  PieSeries := TPieSeries.Create(Chart1);
  Chart1.AddSeries(PieSeries);           // 饼状图
  Chart1.Title.Text.Text := '老人（'+MainS+'）结构图';
  for I:=Top1-1 downto 0 do
    PieSeries.AddXY(i+1, C[i], A[i], Color[i]);