s1:=TChartSeries.Create(chrt_);
    s2:=TChartSeries.Create(chrt_);

    s1.ParentChart:=chrt_;
    s2.ParentChart:=chrt_;

    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;
    ShowMessageUser(inttostr(ds.RecordCount));
    s1.Title:=grafopis.Value;
    s2.ShowInLegend:=false;
    s1.Visible:=true;
    s2.Visible:=true;
    s1.DataSource:=ds;
    s1.XValues.DateTime:=true;
    s1.XValues.ValueSource:='time';
    s1.YValues.ValueSource:='value';


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