delphi memo1.Font.style

{ 
memo1.Font.style
                fsBold 粗体
                fsItalic 斜体
                fsUnderline 下划线
                fsStrikeOut 删除线
返回值：Boolean 
}
 

//style1
memo1.Font.style:=[fsBold,fsItalic,fsUnderline,fsStrikeOut];
//style2
memo1.Font.style:=[fsBold];