放一块啊！指的是memo1.font.style := [fsitalic,fsunderline];形式吗？如何这样写的话，把加粗、斜体、下划线三者的情况都考虑进来，那要写挺长一段的代码了吧！比如说当进行斜体时，要去判断有没有加粗、下划线、加粗和下划线，这样挺麻烦的！有什么好的建议吗？我没想到别的方法了！

我想了一下可以用memo1.font.style := memo1.font.style+[fsbold];类似的方式来得到理想中的效果！

还有一个问题：如何把加粗、斜体这些字体形式保存到access数据库中呢？真是搞不明白！

给你介绍个好点的方法！！
我也是初学者！！不知道是不是你说的意思！！
----------------------------------------------------------------------------------
添加一个按扭！！Button
写如代码事件！！
procedure TForm1.Button1Click(Sender: TObject);
begin
FontDialog1.Execute ;
memo1.Font:=FontDialog1.Font;
end;
这个看是不是你想要的结果！！

那是radiobutton，一次中能选中一个，改用checkbox吧