关于MAINMENU菜单控件的用法有关问题，判断checkde属性有关问题

关于MAINMENU菜单控件的用法问题，判断checkde属性问题
我编写了一个记事本，现在要实现一个功能：
一段文字，选中几个字设置为粗体后，在菜单上就会有个“勾”，再按一下，就会取消粗体，“勾”也会消失，选中另外的没有设置粗体的文字，就没有显示“勾”，按一下，便会把字体设为粗体，也会在菜单上显示“勾”，大概就是这样。                    
帮忙啊！谢谢

[解决办法]
同一话题何必发多个贴子？浪费自己的可用分。

看一下 Delphi目录下的Demos\RichEdit示例。然后再找一下如何设置MainMenu的MenuItem的Checked属性。就OK了。
[解决办法]
procedure TForm1.Bold1Click(Sender: TObject);
begin
if Bold1.Checked then
begin
Bold1.Checked := false;
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];
end
else
begin
Bold1.Checked := True;
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold];
end;
end;

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
Bold1.Checked := fsBold in RichEdit1.SelAttributes.Style;
end;