delphi中如何设置字体的粗细？
TextFont := TFont.Create;
OLEFontToFont(lyr.LabelProperties.Style.TextFont, TextFont);
TextFont.Name := '宋体';
TextFont.Size := 12;
我想在程序中设置字体的粗细，但是就是找不到相关的提示关键字。
帮助中提到fsbold， weight,但是他们在程序中都不是正确的提示关键字。
请大侠帮忙……给出正确的代码……

[解决办法]
引用单元
Graphics 或者 QGraphics