Динамическое добавление графиков (series) на TChart

[MooNDeaR]

К сожалению, нет времени писать подробно, поэтому суть.

Делаю метод хорд на делфях. Из знаний делфей - только школьные знания паскаля. Методом тыка всё сделал, но мне надо начертить процесс нахождения корня, т.е. отобразить поверх графика еще несколько одиночных линий.

Погуглив, я понял, что просто отдельные линии нарисовать на TChart-е нельзя (если можно скажите как), поэтому проблему планирую решить следующим образом: для рисования отдельной линии на TChart, добавлять новый "слой" (серию) графика, и рисовать на нем ровно одну линию. Получается, что одна линия - одна серия. Т.к. линий не планируется больше 10-20 рисовать, то это какое-никакое, но решение.

Вопрос: как в Делфях добалять серии динамически на объект TChart?

[Аватар]

В OnAfterDraw или OnBeforeDrawSeries можно рисовать линии на Chart.Canvas

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
begin
  Chart1.Canvas.Pen.Color:=clBlack;
  Chart1.Canvas.MoveTo(Chart1.ChartRect.Left+50,Chart1.ChartRect.Top);
  Chart1.Canvas.LineTo(Chart1.ChartRect.Left+150,Chart1.ChartRect.Bottom);
  Chart1.Canvas.MoveTo(Chart1.ChartRect.Left+50,Chart1.ChartRect.Top);
  Chart1.Canvas.LineTo(Chart1.ChartRect.Left+50,Chart1.ChartRect.Bottom);
end;

Если добавлять серию, то

  Series1:=TLineSeries.Create(Self);
  Chart1.AddSeries(Series1);

[MooNDeaR]

В OnAfterDraw или OnBeforeDrawSeries можно рисовать линии на Chart.Canvas

У данного варианта мне видится как минимум 2 минуса:

1) Canvas - он попиксельный, а мне бы координаты. Нет, конечно, можно без особых проблем замутить масштабирование, но это лишние заморочки
2) Не получается у меня нарисовать эти линии по нажатию кнопки. Видимо, дело в том, что код именно событии Chart1BeforeDrawSeries.

Если добавлять серию, то

Странно, пробовал тот же код пару часов назад, ничего не работало.

Спасибо, большое!