Возможно ли пустить название серии вдоль линии графика в TeeChart

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var
  i, x, y: integer;
  yy: Double;
begin
  for i:=0 to Chart1.Series[0].Count - 1 do begin
    x := Chart1.Series[1].CalcXPos(i);
    y := Chart1.Series[1].CalcYPos(i);
    Chart1.Canvas.Ellipse(x - 3, y - 3, x + 3, y + 3);
  end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
  yy, x, y: Double;
  i: integer;
begin
  Randomize;
  x := 1;
  y := 50;
  while x<50 do begin
    y := y + (Random(100) - 50)/100;
    Chart1.Series[0].AddXY(x, y, 'sd');
    x := x + 1;
  end;
 
 
  //ñãëàæèâàåì
  for i:=0 to Chart1.Series[0].Count - 1 do begin
    x := Chart1.Series[0].XValue[i];
    yy := getAvg(i, 5);
    Chart1.Series[1].AddXY(x, yy);
  end;
 
end;
 
function TForm1.getAvg(aIndex, aCount: integer): double;
//ñ÷èòàåì ñðåäíåå àðèôìåòè÷åñêîå îò aIndex âëåâî è âïðàâî
var
  count, i: integer;
begin
  count := 0;
  Result := 0;
 
  //ñëåâà äî aIndex
  for i:=0 to aCount do begin
    if aIndex - i >= 0 then begin
      inc(count);
      Result := Result + Chart1.Series[0].YValue[aIndex - i];
    end;
  end;
 
  //îò aIndexà âïðàâî
  for i:=0 to aCount do begin
    if i + aIndex < Chart1.Series[0].Count - 1 then begin
      inc(count);
      Result := Result + Chart1.Series[0].YValue[aIndex + i];
    end;
  end;
 
  Result := Result/count;
end;

procedure TPerformance.Series1AfterDrawValues(Sender: TObject);
begin
  chrtPerformance.Chart.Canvas.Font.Color:=clBlack;
  DrawText(0, 100);
end;

  //создаем наклонный шрифт
  LogFont.lfheight := 12;
  logfont.lfwidth := 12;
  LogFont.lfEscapement := Round(a*10);
  LogFont.lfOrientation := Round(a*10);
  logfont.lfcharset := 1;
  logfont.lfoutprecision := out_tt_precis;
  logfont.lfquality := draft_quality;
  logfont.lfpitchandfamily := FF_Modern;
  logfont.lfUnderline := 0;
  font := createfontindirect(logfont);