procedure TForm1.AddPoints; 
var 
  i: integer; 
begin 
  //Adds 20 Points with random value from 0 to 50 to the first Pane (0) 
  //with the first Serie (0) 
  for i := 0 to 20 do 
  AdvChartView.Panes[0].Series[0].AddSinglePoint(RandomRange(0, 50)); 
  //Set Range from 0 to 20 
  AdvChartView.Panes[0].Range.RangeFrom := 0; 
  AdvChartView.Panes[0].Range.RangeTo := 20; 
  //Set Auto Display Range to arEnabled 
  AdvChartView.Panes[0].Series[0].Autorange := arEnabled; 
end;

procedure TForm1.GDIPGraphics; 
begin 
  //Adds Gradient start color and Gradient end color with a Forward 
  //Diagonal Gradient type. The starting Transparency is 120 and the end 
  //transparency is 255; 
  AdvGDIPChartView.Panes[0].Series[0].Color := clTeal; 
  AdvGDIPChartView.Panes[0].Series[0].ColorTo := clOlive; 
  AdvGDIPChartView.Panes[0].Series[0].Opacity := 120; 
  AdvGDIPChartView.Panes[0].Series[0].Opacity := 255; 
  AdvGDIPChartView.Panes[0].Series[0].GradientType := gtForwardDiagonal; 
end;