如何用TChart在时钟控制下画动态曲线，郁闷啊，高手救我！！

Question

我想将180个点在TChart上动态画成曲线，可是，用时钟试了好多次，就是没能试出来，那高手能帮我啊？谢谢哦：）

Answer 1

var
  value:Array[0..180] of integer;
  x:integer;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if x>180 then
        exit;    Series1.AddXY(x,value[x],'',clRed);
    inc(x);
end;procedure TForm1.FormShow(Sender: TObject);
var
    i:integer;
begin
    Randomize;
    for i:=0 to 179 do
        value[i]:=Random(1000);
    x:=0;
end;