خطاء فى كود التخفي 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;