[Yurk@@@]

Спасибо! Работает!

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=random(100);
x1:=random(30);
Series1.YValue[0]:=x;
Series1.YValue[1]:=x1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
series1.AddY(x);
series1.AddY(x1);
end;