delphi中如何设置字体的粗细？

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