TChart, LeftAxis, метки по оси У для нескольких, динамически создающихся, серий Опции

[*kitty*]

Проблема в следующем: есть TChart и несколько серий, количество которых заранее неизвестно, поэтому серии создаются динамически по необходимости. Каждая серия - это графическое представление сигнала. Каждый сигнал имеет собственное имя. Имена содержатся в массиве, например: Name_of_signals: array [1..N] of string. Нужно, чтобы по оси У (LeftAxis) напротив каждого сигнала стояло его имя (как на рис.2). Используя событие OnGetAxisLabel ,

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
var i:integer;
begin
 if (Sender=Chart1.LeftAxis)and(ValueIndex>-1)
  then LabelText:=Name_of_signals[i]; //i здесь по идее номер серии (сигнала)
end;

метка появляется только напротив первого сигнала, т.е только для первой серии (рис.1).
Как сделать, чтобы напротив каждой серии стояло нужное имя? Что-то никак не получается...
На рисунках ниже показано как примерно это должно выглядеть.

[volvo]

Как-то вот так:
1) добавляешь

procedure TForm1.FormCreate(Sender: TObject);
begin
  Fname:='';
  SpinEdit1.MinValue:=2;
  SpinEdit1.MaxValue:=50000;
  Chart1.LeftAxis.LabelsAlternate := True; // <--- Вот эту строку
end;

, чтобы включить альтернативное отображение меток (они будут отображаться в 2 столбца, если не хватает места отобразить ВСЕ в одном столбце. Попробуй, увидишь...)
2) и в OnGetAxisLabel - вот такая "уличная магия":

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries;
  ValueIndex: Integer; var LabelText: string);
var value: double;
begin
    if sender = chart1.LeftAxis then begin
      value := StrToFloat(LabelText);
      if (Frac(value) < 0.25) and (value > 0.5) then begin
        labeltext := Name_of_signals[Trunc(value)];
      end;
    end;
end;

Естественно, что Name_of_signals должна быть описана глобально, а не локально в TForm1.Button1Click. Просто перенеси определения мессива на несколько строк выше. Да, и отключи Легенду, она только место занимает. Теперь она тебе не нужна. Так же, как и заполнение Chart1.Series[j-1].Title

Вот так это выглядит: