Трудности прорисовки кривых

var
  i, j, n, m, Sck: integer;
  Rez: double;
  s: string;
  ChartSelf: TChart;
  JvDBGridSelf: TJvDBGrid;
begin
  s := Form1.ComboBox3.Text;
  Delete(s, 1, 2);
  Sck := 1;
  Rez := 0;
  for i := 1 to ColNam do     // Количество Chart`ов на форме
  begin
    ChartSelf := FindComponent('ChartCol' + IntToStr(i)) as TChart;
    JvDBGridSelf := FindComponent('JvDBGridCol' + IntToStr(i)) as TJvDBGrid; 
    if ChartSelf.SeriesCount = 0 then Continue;
    for j := 0 to JvDBGridSelf.Columns.Count - 1 do
    begin
      if not JvDBGridSelf.Columns[j].Visible then Continue;
      for n := 0 to ChartSelf.SeriesCount - 1 do
        if ChartSelf.Series[n].Tag = j - 1 then
        begin
          Form1.ClientDataSet1.RecNo := Form1.ScrollBar1.Position * (StrToInt(s) * 5) + 1;
          ChartSelf.Series[n].Active := false;
          ChartSelf.SeriesList[n].Clear;
          for m := Form1.ClientDataSet1.RecNo to (Form1.ClientDataSet1.RecNo + 12 * (StrToInt(s) * 5)) do
          begin
            if m > Form1.ClientDataSet1.RecordCount then Break;
            Form1.ClientDataSet1.RecNo := m;
            Rez := Rez + Form1.ClientDataSet1.Fields[j].Value;
            if Sck = StrToInt(s) then
            begin
              Rez := Rez / StrToInt(s);
              Sck := 1;
              ChartSelf.Series[n].AddXY(Rez,Form1.ClientDataSet1.Fields[0].Value,'');
              Rez := 0;
            end;
            Inc(Sck);
          end;
          ChartSelf.Series[n].Active := true;
          ChartSelf.Repaint;
        end;
    end;
  end;
  Form1.ClientDataSet1.Last;
end;

Form1.ClientDataSet1.DisableControls;

Form1.ClientDataSet1.EnableControls