в Делфях успешно юзаю функцию:

function SetRights(Db:OleVariant;TableName:string;
const PermissionsReadOnly:Boolean=true):Boolean;
var ctr,doc:OleVariant;P:Integer;
begin Result:=false;
if IsEmpty(db)then exit;
try ctr:=db.Containers.Item['Tables'];
doc:=ctr.Documents.Item[TableName];
doc.UserName:='admin';
P:=dbSecRetrieveData or dbSecReadDef;
if not PermissionsReadOnly then
P:=P or dbSecWriteDef or dbSecInsertData or
dbSecReplaceData or dbSecDeleteData;
P:=doc.Permissions or P;
doc.Permissions:=P;
Result:=(doc.Permissions=P);
except;end;
end;