procedure TForm1.btnAddSeriesClick(Sender: TObject);
const
POINTS_PER_SERIE = 50000;
var
s: TLineSeries;
i, j: Integer;
begin
for i := 1 to 18 do begin
s := TLineSeries.Create(chFast);
s.SeriesColor := clRed;
for j := 1 to POINTS_PER_SERIE do
//changed 10 to 0.1
s.AddXY(j, Random * 5 + chFast.SeriesCount * 0.1);
chFast.AddSeries(s);
end;
lblPointsCount.Caption :=
Format('Points: %.2e', [chFast.SeriesCount * POINTS_PER_SERIE * 1.0]);
end;