كيفية الحصول على حقوق المستخدم مع MainMenu

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
للسادة الافاضل احتاج الى تغير في الكود المرفق و ذالك باستعمال المكون Mainmenu
اذا امكن من فضلكم

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var
  tb: TToolButton;
  i, iCheck: Integer;
begin
  with ToolBar1, CheckListBox1 do
  begin
    Enabled := False;
    for i := 0 to Pred(ButtonCount) do
    begin
      tb := Buttons[i];
      if tb.Style = tbsButton then
      begin
        iCheck := Items.AddObject(tb.Caption, tb);
        Checked[iCheck] := tb.Visible;
      end;
    end;
    Enabled := True;
  end;
end;