Curve.Series:=Chart.AddSeries(THorizLineSeries);
        Curve.Series.CustomHorizAxis:=AddScale(LeftPos,dtsChartsCOLOR.Value);

        with Curve.Series.CustomHorizAxis do
        begin
          Automatic:=false;
          Minimum:=0;
          Maximum:=0;
          Maximum:=RoundTo(dtsChartsMAX_VALUE.Value,-2);
          Minimum:=RoundTo(dtsChartsMIN_VALUE.Value,-2);
          Increment:=Maximum;
          Items.Add(Minimum,FloatToStr(Minimum));
          Items.Add(Maximum, FloatToStr(Maximum));
          Stp:=Abs((Maximum-Minimum))/GrgCnt;
          for t := 1 to GrgCnt do
            Items.Add(Minimum+Stp*t);
          Items.Add((Maximum-Minimum)/2,dtsChartsTITLE.Value);
          MinorTicks.Visible:=false;
        end;
        Curve.Series.CustomVertAxis:=Chart.LeftAxis;
        Curve.Series.YValues.DateTime:=true;