//添加拆线图示例
procedure TForm1.Button1Click(Sender: TObject);
var
 Series: TLineSeries;
begin
 Series := TLineSeries.Create(Chart1);
 Series.Add(100, 'aaa', clRed);  //添加第一个点X轴值为aaa，Y轴值为100
 Series.Add(200, 'AAA', clGreen); //添加第二个点X轴值为AAA，Y轴值为200
 Series.ShowInLegend:=false;   //不显示右边那个
 Chart1.AddSeries(Series);   //给Chart1添加这个设置了值的Series
 Chart1.Title.Text.Strings[0]:= '22221';
end;

//添加柱图示例
procedure TForm1.Button2Click(Sender: TObject);
var
 Chart: TChart;
 S: TChartSeries;
 TmpFile: string;
begin
 Chart := TChart.Create(nil);
 try
  Chart.Parent := Application.MainForm;
  Chart.Visible := False;
  Chart.Title.Text.Text := '测试图表';
  S := TBarSeries.Create(Chart);
  Chart.AddSeries(S);
  S.Title := '嘿嘿';
  S.AddXY(1, 56, '一月', clGreen); //添加第1个柱，其Y值为56，X值为一月，颜色为绿
  S.AddXY(2, 67, '二月', clYellow);
  S.AddXY(3, 34, '三月', clBlue);
  S.AddXY(4, 78, '四月', clRed);
 finally
 Chart.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  RedSeries, BlueSeries: TBarSeries;
  I: Integer;
begin
  cht.SeriesList.Clear;  //先把Cht的图列表清空，cht为拖入的控件名称
  RedSeries := TBarSeries.Create(cht); //创建一个名为RedServies的图
  BlueSeries := TBarSeries.Create(cht);
//图表线条名称
  RedSeries.Title := '一月份';  //图的标题赋值
  BlueSeries.Title := '二月份';
//填充数据，这里需要根据你的实际情况来
  for I := 1 to 10 do    //分别给红蓝柱图赋上10个值
  begin
    RedSeries.Add(I, IntToStr(I), clRed);
    BlueSeries.Add(10 - I, IntToStr(I), clBlue);
  end;
  cht.AddSeries(RedSeries);   //把已赋值的RedSeries添加到Chart中
  cht.AddSeries(BlueSeries);
  cht.Title.Text.Text := '柱状图';  //设置Chart图的顶部标题
  cht.BottomAxis.Title.Caption := '数值'; //设置Chart图的底部标题

//禁止图表滚动
  cht.AllowPanning := pmNone;
  cht.Refresh;
end;