在窗体上加入TeeChart控件，并通过属性加入4个TLineSeries，分别命名为Series1,Series2,Series3,Series4,并添加一按钮Button1,其Click事件为:
procedure TForm1.Button1Click(Sender:TObject);
begin
Series1.FillSampleValues(200);
Series2.FillSampleValues(200);
Series3.FillSampleValues(200);
Series4.FillSampleValues(200);
with chart1.LeftAxis do
begin
startPosition :=0;
EndPosition :=25;
Axis.Color:=clRed;
end;
Axis1 :=TChartAxis.Create(Chart1);
with Axis1 do
begin
startPosition :=25;
EndPosition :=50;
Axis.Color :=clGreen;
end;
Series2.CustomVertAxis :=Axis1;
Axis2 :=TChartAxis.Create(chart1);
with Axis2 do
begin
startPosition :=50;
EndPosition :=75;
Axis.Color :=clBlue;
end;
Series3.CustomVertAxis :=Axis2;
Axis3 :=TChartAxis.Create(chart1);
with Axis3 do
begin
startPosition :=75;
EndPosition :=100;
Axis.Color :=clYellow;
end;
Series4.CustomVertAxis :=Axis3;
end;
TSeries.Mark属性，为每个Series point的提示，可以为预定义值，如：smsLabelValue(顶点值)
TSeries.Title为右边标签框中的文本
TSeries.Legend为容纳TSeries.Title的容器