LABEL控件的字体风格控制问题。(50分)

达到一定条件后，LABEL控件的字体风格会有所改变，比如转为加粗字体，应该如何做呢？
有什么函数可以进行转换？还有，DIV函数的作用是什么？

加粗——Label1.Font.Style := Label1.Font.Style + [fsBold];
正常——Label1.Font.Style := Label1.Font.Style - [fsBold];

div用于对两个整型数作除法，得到的是结果的整数部分。

咳，没办法

有办法
权当一笑

procedure TForm1.Button1Click(Sender: TObject);
var
FontStyle: TFontStyles;
begin
FontStyle := Label1.Font.Style;
Include(FontStyle, fsBold);
Label1.Font.Style := FontStyle;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
FontStyle: TFontStyles;
begin
FontStyle := Label1.Font.Style;
Exclude(FontStyle, fsBold);
Label1.Font.Style := FontStyle;
end;

如dq所述在程序中通过设置font属性来改变
Div相当于c中的int / int，整除 9 div 4=2;9 mod 4=1;

多人接受答案了。