Надчёркивание (overline)

// надчёркивание юникодного текста диакритическим символом
function Overline(const str: string): string;
const
  SYMB_OVLN: WideChar = #$0305;
begin
  result:= '';
  for var idx:= 1 to length(str) do
    result:= result + SYMB_OVLN + str[idx];
end;
 
//==============
LabelTest.Caption:= Overline('SC1')  + ' (push-pull output)';

// ПРОГОН "ГРЯЗНОЙ" СТРОКИ
  for c in Caption do
  begin
    if c = '&' then Continue else
    if (c <> tild) then
    // ОБЫЧНЫЙ СИМВОЛ
    begin
      // вычисляем ширину Line для очередного символа
      Line:= TLine.Create(Canvas.TextWidth(c));
      // если обрабатываемый символ не первый, сдвигаем текущую линию
      // "вправо" на сумму ширин предыдущих линий
      if i > 0 then for n:= 0 to Pred(i) do Line.Offset(Lines[n].Width);
      Lines[i]:= Line;
      Inc(i);
    end else
    // ТИЛЬДА. следовательно, ПРЕДЫДУЩИЙ символ требует отрисовки линии.
    // его ширина на предыдущей итерации уже добавлена в массив Lines.
    // добавляем её в выходной массив.
    begin
      SetLength(Result,Succ(Length(Result)));
      Result[High(Result)]:= Lines[Pred(i)];
    end;
  end;

TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut, fsOverline)