The TExtraLegendTool has been broken since v2014.10.
The code below works fine in v2013.09 but not in v2014.10.

uses Series, TeeExtraLegendTool;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.AddSeries(TLineSeries).FillSampleValues(5);
  Chart1.AddSeries(TLineSeries).FillSampleValues(5);

  Chart1.Legend.LegendStyle:=lsValues;

  Chart1.Draw;

  with Chart1.Tools.Add(TExtraLegendTool) as TExtraLegendTool do
  begin
    Series:=Chart1[1];

    with Legend do
    begin
      Shadow.Transparency:=70;
      CustomPosition:=True;
      Left:=Chart1.Legend.Left;
      Top:=Chart1.Legend.ShapeBounds.Bottom+10;
    end;
  end;
end;