Menenie vlastností všetkých políčok v menu v cykle.

var
 i, j: integer;
begin
for i:=0 to MainMenu.Items.Count-1 do
begin
  for j:=0 to MainMenu.Items[i].Count-1 do
    MainMenu.Items[i].Items[j].Enabled:=false;
end;
end;