CurrentUserHasPermission(aNr :integer) : boolean
procedure DialogTest_OnShow(SenderName: Integer); begin; checkPermissions; end; procedure checkPermissions; begin ButtonTest1.enabled := CurrentUserHasPermission(50001); buttonTest2.enabled := CurrentUserHasPermission(50003); ButtonTest3.enabled := CurrentUserHasPermission(50026); end;