for I := form1.ComponentCount-1 to 0 do begin
       if (Components[i] is TDBChart) then begin
         Components[i].free;
       end;
       end;


  for I := 0 to graf.RecordCount - 1 do begin
    graf.RecNo:=i+1;
    chrt_:=TDBChart.Create(Form1);
    chrt_.Parent:=panel2;
    chrt_.Align:=alTop;
    chrt_.Height:=trunc((Form1.Height-50)/graf.RecordCount);
    chrt_.BottomAxis.Automatic:=false;
    chrt_.Name:='CHART'+inttostr(i);
    chrt_.View3D:=false;
    s1:=TChartSeries.Create(self);
    s2:=TChartSeries.Create(self);
    ds:=TADODataSet.Create(self);
    ds.Connection:=ADOConnection1;
    ds.CommandText:='select * from '+graftabl.Value+' where time>=:t1 and time<=:t2 ';
    ds.Parameters.ParamValues['t1']:=MonthCalendar1.Date;
    ds.Parameters.ParamValues['t2']:=MonthCalendar1.Date+1;
    ds.Open;

    s1.Title:=grafopis.Value;
    s2.ShowInLegend:=false;

    chrt_.AddSeries(s1);
    chrt_.AddSeries(s2);



  end;