TLabel 的 Caption 屬性 如果設為 '&Size' 
則元件會在 S 下面加上底線，像這樣... Size，
請問用Canvas 畫字的時候有沒有方便的方法可以做到這種效果？

研究出來了
自問自答一下

用 windows api DrawText

範例:

procedure TNImage.DrawCaption;
var
ARect: TRect;
Flags: integer;
begin
if FCaption = '' then exit;

Canvas.Font.Assign(FFont);
Canvas.Brush.Style := bsClear;
Flags := 0;
Flags := Flags or DT_CENTER or DT_VCENTER or DT_SINGLELINE;
ARect := Rect(0, 0, Picture.Width, Picture.Height);
DrawText(Canvas.Handle, PChar(FCaption), Length(FCaption), ARect, Flags);
end;