{ 

memo1.Font.style

                fsBold 粗体

                fsItalic 斜体

                fsUnderline 下划线

                fsStrikeOut 删除线

返回值：Boolean 

}

 

//style1

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

//style2

memo1.Font.style:=[fsBold];