Гистограмма. Точки и их соединение

procedure TForm1.DRAWClick(Sender: TObject);
begin
 Form1.HISTOSer.Clear;
 Form1.HISTOSer.BarWidthPercent:=100;
 Form1.HISTOSer.OffsetPercent:=50;
 Form1.HISTOSer.Marks.Visible:=false;
 for l:=0 to CLASSNUM-1 do
 Form1.HISTOSer.Add(StrToInt(TABLE2.Cells[0,l+1]),TABLE.Cells[0,l+1],clGreen);
 Form1.HISTOSer.Add(0,IntToStr(XMAX),clGreen);
   for l := 1 to TABLE.RowCount do
     begin
      X:=StrToFloat(TABLE.Cells[0,l]);
      Z:=X/2;
      Form1.POINTSer.Add(StrToInt(TABLE2.Cells[0,l]),FloatToStr(z));
     end;
 end;

procedure TForm1.DRAWClick(Sender: TObject);
begin
 DELTA:=StrToFloat(SHAG.Text);
 Form1.HISTOSer.Clear;
 Form1.HISTOSer.BarWidthPercent:=100;   //Толщина столбцов
 Form1.HISTOSer.OffsetPercent:=50;      //сдвиг столбцов относительно осей координат
 Form1.HISTOSer.Marks.Visible:=false;
   //отрисовка гистограммы по данным из таблиц:
 for l:=0 to CLASSNUM+1 do
   Form1.HISTOSer.Add(StrToInt(TABLE2.Cells[0,l+1]),TABLE.Cells[0,l+1],clGreen);
   Form1.HISTOSer.Add(0,FloatToStr(XMAX+DELTA),clGreen);   //Нулевой столбец
 for l := 1 to TABLE.RowCount do
   begin
    X:=StrToFloat(TABLE.Cells[0,l]); //кордината Х
    X:=X+DELTA/2; // сдвиг координаты
    Form1.Input.Cells[0,l]:=FloatToStr(X);
   end;
    for l:=0 to CLASSNUM+1 do
     Form1.POINTSer.Add(StrToInt(TABLE2.Cells[0,l+1]),Input.Cells[0,l+1]); //отрисовка точек
 end;

  POINTSer.Clear;
  POINTSer2.Clear;
  POINTSer3.Clear;
 for l := 0 to histoser.XValues.Count-1 do
 begin
   if l mod 2=0   then
   POINTSer.AddXY(histoser.XValues.Value[l],histoser.YValues.Value[l],floattostr(histoser.XValues.Value[l]),clblue)
  else
   POINTSer2.AddXY(histoser.XValues.Value[l],histoser.YValues.Value[l],floattostr(histoser.XValues.Value[l]),clyellow);
   if l>1 then
   begin
   if l mod 2=0 then
   begin
   qa:=(pointser.YValues.Value[l div 2 - 1]+pointser.YValues.Value[l div 2])/2;
   qp:=pointser2.YValues.Value[l div 2 - 1];
   end
   else
   begin
   qa:=(pointser2.YValues.Value[l div 2 - 1]+pointser2.YValues.Value[l div 2])/2;
   qp:=pointser.YValues.Value[l div 2];
   end;
   if qa<qp then
   qe:=qa
   else
   qe:=qp;
   POINTSer3.AddXY(histoser.XValues.Value[l-1],(abs(qa-qp))/2+qe,floattostr(histoser.XValues.Value[l-1]),clred);
   end;
  end;