var
Contador, Indice : Integer;
begin
with Form1 Do begin
Contador := Form1.ComponentCount;
for Indice := 0 to Contador - 1 do begin
if (Form1.Components[Indice] is TMenuItem) then begin
TMenuItem( FindComponent ( Form1.Components[Indice].Name) ).Enabled := False;
TMenuItem( FindComponent ( Form1.Components[Indice].Name) ).Visible := False;
end;
end;
end;