We've just added a LegendTitle property to the Series. We've added it in the actual VCL sources but it should be available in the next ActiveX build.
Right now, I can show you the code in VCL that works for me here:
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
for i:=0 to 3 do
with Chart1.AddSeries(TBarSeries) do
begin
FillSampleValues(3);
LegendTitle:='bar nº' + IntToStr(i);
Title:='series nº' + IntToStr(i);
Marks.Style:=smsSeriesTitle;
end;
end;