Tengo Problema al deshabilitar opciones de un menu

[Caminante]

Código Delphi [-]
procedure Tfrmprincipal.FormShow(Sender: TObject);
begin
  imgfondo.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\imagen\fondo.jpg');
  nivel_usuario := frmLogin.nivel;

{  N0CuentasdeUsuarios1.Enabled := False;

  case nivel_usuario of
    0:begin
          Mantenimiento1.Enabled := False;
          Consultas1.Enabled     := False;
      end;
    1-4:begin
          N1Status1.Enabled     := False;
          N3Cargos1.Enabled     := False;
          N4Miembros1.Enabled   := False;
          I1.Enabled            := False;
          N0CuentasdeUsuarios1.Enabled := False;
      end;
    9:begin
          N0CuentasdeUsuarios1.Enabled := True;
      end;
  end;
  Salir1.Enabled         := True; }
end;

[/quote]

No se si entendí bien pero para empezar si en una sentencia case deseas especificar un rango de opciones se usa ".." es decir "1..4" la forma que has escrito nunca la había visto en un case.