如何实现按钮的控制？？高手请进（在线等~~~~~~）

Question

1.MainFrm 中的formstyle: fsMDIForm 当点其中的MENU中的一项SHOW，显示LoginFrm(formstyle: fsMDIChild )2.在LoginFrm中输入用户与密码与用户角色时，进入另一form为 BookFrm(formstyle: fsMDIChild )3.一个parentFrm,BookFrm继承parentFrm（parentFrm中有一个按钮ADD）用（actionlist,ToolBar控制）现要做的是： 普通用户进入时，让ADD按钮不可用。当角色为管理员中为可用如何实现？

Answer 1

if 条件 THEN
BEGIN
  BUTTON1.ENDABLED:=TRUE;
END;

Answer 2

我是在用户选择时进行设置：
           if cbbClass.ItemIndex = 0 then//普通用户
           begin
            // frmmain.AfterConnect;
             Parent_Mis.SetEanbleButton;//add.Enabled := False;
             MessageDlg('以读者份登录成功',mtInformation,[mbYes],0);
            // frmmain.actUserLogin.Enabled := False;
             bbtnCancleClick(self);
           end
           else
           begin
           //  frmmain.AfterConnect;
            // frmmain.actUserLogin.Enabled := False;
             MessageDlg('以管理员身份登录成功',mtInformation,[mbYes],0);
             bbtnCancleClick(self);
           end
但是这样做不行？  为什么？
出现的提示是： 

Answer 3

project BookMis.exe raised exception class EaccessViolation with ‘Access wiolation at address oo4c90ad in module bookmis.exe’,read of address 00000354’,process stopped use step or run to continue;’