procedure TForm1.Chart1UserDrawnSeries1Draw(ACanvas: TCanvas; const ARect: TRect);
var
i: Integer;
P: TPoint;
y0: Integer;
begin
ACanvas.Pen.Color := clRed;
ACanvas.Pen.Width := 1;
ACanvas.Pen.Style := psSolid;
y0 := Chart1.YGraphToImage(0);
for i:=0 to ListChartSource1.Count-1 do begin
P := Chart1.GraphToImage(ListChartSource1[i]^.Point);
ACanvas.Line(P.x, y0, P.x, P.y);
end;
end;