{ memo1.Font.style fsBold 粗体 fsItalic 斜体 fsUnderline 下划线 fsStrikeOut 删除线返回值:Boolean } //style1 memo1.Font.style :=[fsBold,fsItalic,fsUnderline,fsStrikeOut]; //style2 memo1.Font.style :=[fsBold];