LineTo

WordWrap:=false;
Autosize:=true;

TLabel = class (StdCtrls.TLabel)
 procedure Paint;override;
end;
 TForm1 = class(TForm)
   Label1: TLabel;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TLabel.Paint;
var i,X,Y, W: integer;
const n = 8;
begin
 inherited;
 X := Width div 2;
 Y := Height;
 W := Width div N;
 while (Canvas.Pixels[X,Y] <> clBlack) and (Y>0) do dec(Y);
 while (Canvas.Pixels[X,Y] = clBlack) and (Y>0) do dec(Y);
 if Y > 0 then begin
   Canvas.Brush.Color := clBtnFace;
   Canvas.Pen.Color := Canvas.Brush.Color;
   for i := 1 to N do
     Canvas.Rectangle((i-1)*W+W div 2,Y,i*W,Height);
 end;
end;

begin
inherited;
if not (fsUnderline in Font.Style) then Exit;
X := Width div 2;
....