Delphi - habilitar y desabilitar main menu

hola me podrian ayudar necesito habilitar y desabilitar un main menu desde codigo pero no se donde colocarlo.
gracias

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i := 0 to Form1.ComponentCount - 1 do
if (Components[i] is TMenuItem) then
(Components[i] as TMenuItem).Enabled := False;

end;

Bueno realmente con solo deshabilitar el primer item de cada menu tienes.

Saludos!!!

Si lo que quieres es deshabilitar las opciones dentro del MainMenu (por ejemplo, que al pulsar Editar no aparezca pegar si no hay texto en el portapapeles) ponemos algo parecido (abre el editor del Main Menu y coloca lo siguiente en el OnClick del Menú superior, en este caso se llama Archivo):

procedure TForm1.Archivo1Click(Sender: TObject);
begin
if ClipBoard.HasFormat(CF_TEXT) then
Pegar1.Enabled:=true
else
Pegar1.Enabled:=false;
end;

Si lo que quieres es dehabilitar todo el MainMenu (todas las opciones o MenuItem) pues en el trozo de código que cause dicho efecto.

Un saludo.