procedure TFrm_ChartSet.Qc_Draw(Series1: TQcSeries);
var CL, UCL, LCL : TSample;
begin
  CtData:=Tvec.Create;
  CtDraw:=Tvec.Create;
  CtConfidence := 99.8;
  try
    CtData.LoadFromFile('Ct.vec');
  except
  end;
  CtSampleSize := 1;
  QCPChart(CtData,CtSampleSize,CtDraw,CL,UCL,LCL,CtConfidence*0.01);
  Series1.CL  := 6;    //CL;
  Series1.LCL := 3;   //LCL;
  Series1.UCL := 9;   //UCL;
  DrawValues(CtDraw,Series1);
  Series1.ColorEachLine:=False;
end;