Fórum Movimento de um chart #335797

Pessoal, estou querendo que fique sempre 10 colunas no grafico.
com duas series. quando incrementa mais uma a da esquerda apaga.
Com uma series somente ele funciona com o codigo abaixo.

procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.FillSampleValues(10);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
With Chart1 do
Series1.AddY( StrToInt(Edit1.Text),´´,clTeeColor);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Series1.Delete(0);

procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.FillSampleValues(10);
end;

Para duas series não funciona ele pula de dois em dois.
igual abaixo

procedure TForm1.Timer1Timer(Sender: TObject);
begin
With Chart1 do
Series1.AddY( StrToInt(Edit1.Text),´´,clTeeColor);
Series2.AddY( StrToInt(Edit2.Text),´´,clTeeColor);
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
Series1.Delete(0);
Series2.Delete(0);

Grato
Juarez