TFastLine en tiempo de ejecucion

[victor2023]

Hola que tal a todos,

Estoy creando series fastline en tiempo de ejecucion pero no me dibuja nada en el tchart :S

ya he hecho varias pruebas pero nomas no

con este codigo es con el que he estado trabajando de prueba para posteriormente agregar los valores y los labels con un sp

de antemano gracias.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    serieA : TFastLineSeries;
    cuantos,y : integer;
    lista : tstringlist;
begin

cuantos := 0;

lista := tstringlist.Create;
lista.Clear;

  for i := 1 to 5 do
      begin
        serieA             := TFastLineSeries.Create(self);
        serieA.ParentChart := Chart1;
        serieA.Marks.Visible := false;
        chart1.AddSeries(serieA);
        lista.Add(inttostr(i));
      end;

for y := 0 to lista.Count - 1 do
    begin
      cuantos := cuantos + 3;
      if cuantos >= 6 then
         cuantos := 3;
      chart1.Series[y].Add(cuantos,'label '+inttostr(y));
    end;

end;