TChart动态创建(Delphi)

procedure TfrmMain.Button1Click(Sender: TObject);
var
  cht:TChart;       //chart
  ls:TLineSeries;   //Series
begin
  cht:=TChart.Create(self) ;
  cht.Parent:=frmMain;
  cht.View3D :=False;
  ls:=TLineSeries.Create (self);
  ls.ParentChart :=cht;
  ls.AddXY (2,30);
  ls.AddXY (20,40);
end;

还有其他的几种Series为
TAreaSeries
TBarSeries
TCircledSeries
TCustomBarSeries
TCustomSeries
TFastLineSeries
THorizBarSeries
TLineSeries
TPieSeries
TPointSeries
TSeriesPointer

其余的就不用多说了吧。