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