Блокировка одного пункта меню в приложении

procedure TForm10.ButtonEnterClick(Sender: TObject);
var SaveTxt:TStringList;
    iterIntCount:integer;
    LogAndPass:string;
 
begin
SaveTxt:=TStringList.Create;
SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'RegEdit.txt');
LogAndPass:= EditLogin.Text+' '+EditPass.Text;
for iterIntCount:=0 to SaveTxt.Count -1 do
begin
if LogAndPass = SaveTxt[iterIntCount] then
begin
Label3.Caption:='Вход подтвержден!';
Form10.Hide;
Form1.Show;
If (EditLogin.Text='Admin') then Form1.N16.enabled:=True
else Form1.N16.enabled:=False;
Form1.Enabled:=True;
Form10.EditLogin.Clear;
Form10.EditPass.Clear;
end
else
Label3.Caption:='Вы ввели неверный логин и пароль! Проверьте правильность написания! Либо зарегистрируйтесь!';
Form10.EditLogin.Clear;
Form10.EditPass.Clear;
end;
end;

procedure TForm10.ButtonEnterClick(Sender: TObject);
var SaveTxt:TStringList;
    iterIntCount:integer;
    LogAndPass:string;
 
begin
  SaveTxt:=TStringList.Create;
  try
  SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'RegEdit.txt');
  LogAndPass:= EditLogin.Text+' '+EditPass.Text;
  for iterIntCount:=0 to SaveTxt.Count -1 do
  begin
    if LogAndPass = SaveTxt[iterIntCount] then
    begin
      Label3.Caption:='Вход подтвержден!';
      Hide;
      EditLogin.Clear;
      EditPass.Clear;
      Form1.Show;
      Form1.N16.enabled:=(EditLogin.Text='Admin');
      Form1.Enabled:=True;
      break;
    end
    else
    begin
      Label3.Caption:='Вы ввели неверный логин и пароль! Проверьте правильность написания, либо зарегистрируйтесь.';
    end;
  end;
  finally
    SaveTxt.free;
  end;
end;

procedure TForm1.DEMO_no(Sender: TObject);
var
  N_btn: set of 1..20;
  i :Integer;
begin
 N_btn:=[];   //указать не активные элементы меню
  for i := 0 to ComponentCount-1 do
  begin
    with pm2 do
    begin
      if Components[i] is TMenuItem then
      if TMenuItem(Components[i]).Tag in N_btn then
          TMenuItem(Components[i]).Enabled:=false;
    end;
  end;
end;
 
procedure TForm1.DEMO_yes(Sender: TObject);
var
  N_btn: set of 1..20;
  i :Integer;
begin
 N_btn:=[];//указать активные элементы меню
  for i := 0 to ComponentCount-1 do
  begin
    with pm2 do
    begin
      if Components[i] is TMenuItem then
      if TMenuItem(Components[i]).Tag in N_btn then
          TMenuItem(Components[i]).Enabled:=True;
    end;
  end;
end;