خطاء فى كود التخفي Invisible

[تلميذ]

السلام عليكم و رحمة الله و بركاته

اساتذتى الكرام حياكم الله جميعا

اثناء عملى على برنامج محادثة ماسنجر استخدمت هذا الكود على Check Box لاستخدام خاصية Invisible للمشرف او الادمن اثناء دخول غرفة وهو لا يعمل ولا اعلم اين الخطاء و هل هناك حل بديل ؟

كود :

procedure TBrowseRoomsForm.FormShow(Sender: TObject); begin RoomList.OnDblClick := RoomListDblClick; CategoryTree.Enabled := True; if MainForm.MyPrivilege = 1 then begin chkInvisible.Show; end else chkInvisible.Hide; end;

[Snyder]

هل تتحقق من chkInvisible.Checked ؟

[تلميذ]

اشكرك اخى الحبيب على اهتمامك لكن انا حاولت بهذا الكود كما ذكرت انت

كود :

MyPrivilege,chkInvisible.Checked);

على اساس شرط ان يكون ليفل المشرف اعلى من ليفل المستخدم العادى
هل هذا الحل صحيح ؟