tchart问题

我写的画图程序
var
chartx:array of integer;
  chartave: array of double;
  xlab:string;
with adoqryyb do
    begin
    close;
    sql.Clear;
    sql.Add(ybgp);
    open;
    y:=adoqryyb.RecordCount;
    SetLength(chartx,y);
    SetLength(chartave,y);
    Series1.Clear;
    series2.Clear;
        while not eof do
      begin
        chartx[i]:=i;
        xlab:=inttostr(chartx[i]);
        chartave[i]:=qcybdh;//是前面计算的结果
         series1.Addxy(chartx[i],adoqryyb.fieldbyname('钢坯单耗').AsFloat,xlab,clred);
        series2.Addxy(chartx[i],chartave[i],xlab,clblue);        i:=i+1;
        next;
      end;
我想画两条线，一条是均值线，就是一条直线，另一条是样本波动的线，单独画series1或series2都是好的，可是一起执行图是空的，为什么呢？怎么改？
要完成这样的画图有没有更好的方法？