delphi MainMenu控件 checkde属性用法

//delphi MainMenu控件 checkde属性用法
procedure TForm1.N8Click(Sender: TObject);
begin

if N8.Checked then
begin
N8.Checked := false;
Memo1.ScrollBars:=ssVertical;
end
else
begin
N8.Checked := True;
Memo1.ScrollBars:=ssBoth;
end;

end;