Delphi - RE:Derechos Usuario Delphi

Normalmente, debería funcionar así: Un campo Bool determina si el elemento es accesible o no. Luego, en el OnClick de la entrada del MainMenu (El MenuItem superior), se determina si está habilitado o no. Por ejemplo:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
UnMenu1: TMenuItem;
Unelementodelmen1: TMenuItem;
procedure UnMenu1Click(Sender: TObject);
private
{ Private declarations }
public
MostrarElemento: Bool;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.UnMenu1Click(Sender: TObject);
begin
UnElementoDelMen1.Enabled:=MostrarElemento;
end;

end.