pagecontral切换有关问题

pagecontral切换问题
有4个pages,增加，修改，查询，预警
如果在权限表里面，就都可以切换，如果不在权限表里面，只能在查询跟预警里面切换，不怎么怎么弄？
[解决办法]

var
  lastPage: Integer;

procedure TForm1.pgc1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  lastPage := pgc1.TabIndex;    // 保存上次的tabindex
end;

procedure TForm1.pgc1Change(Sender: TObject);
begin
  if pgc1.TabIndex = 1 then
    // 不允许切换到tab1 ，如果是 tab1 就重新指定为上次选中的tab
    pgc1.TabIndex := lastPage;
end;