label里文字中的下划线

Label1.Font.Style:=Label1.Font.Style+[fsunderline];//加下划线  
   
  Label1.Font.Style:=Label1.Font.Style-[fsunderline];//去掉下划线