delphi 怎么根据登录窗体的登录用户设置主窗体的操作权限

我想做个库存管理系统，根据登录不同的用户 在登录后 主窗体有不同的操作权限。权限级别 我设置为 管理权限 可以所有的操作，操作权限不能管理用户信息（主菜单的N1菜单），查询权限只能查询相关信息。FORM1是主窗体，FORM2是登录窗体。我用的是BDE数据库 登录时如果Table里有对应用户即可登录系统。我把用户名密码等信息和三个权限在同一个TABLE里。以下是登录窗体的部分代码：
begin
table1.Open;
Table1.SetKey;
table1.FieldByName('用户名').AsString:=Edit1.Text;
table1.FieldByName('密码').AsString:=edit2.Text;

if table1.GotoKey then
begin
username:=edit1.Text;
password:=edit2.Text;
x1:=table1.Locate('管理权限','true',[loCaseInsensitive]);
x2:=table1.Locate('管理权限','true',[loCaseInsensitive]);
x3:=table1.Locate('管理权限','true',[loCaseInsensitive]);
table1.Close;
close();
end
else
begin

以下是主窗体的代码部分
procedure TForm1.FormActivate(Sender: TObject);
begin
username:='';
password:='';
x1:=false;
x2:=false;
x3:=false;
form2.showmodal();

if username<>'' then
begin
if x1=False then
begin
n5.Enabled:=false;
n6.Enabled:=false;
n8.Enabled:=false;
n9.Enabled:=false;
n13.Enabled:=false;
application.Terminate;
end
else
begin
n5.Enabled:=true;
n7.Enabled:=true;
n10.Enabled:=true;
n12.Enabled:=true;
end;
if x2=false then
begin
.....
x1 x2 x3 username password是全局变量 在FORM1 FORM2的implementation上面

delphi 做权限管理是很简单的一个事情，因为里面有一个控件叫actionlist。
用法我就不再这里详细说了。你可以再网上找找这个控件的用法，