function AddAceToObjectsSecurityDescriptorW(pszObjName: PWideChar;
                                           ObjectType: SE_OBJECT_TYPE;
                                           pszTrustee: PWideChar;
                                           TrusteeForm: TRUSTEE_FORM;
                                           dwAccessRights: DWORD;
                                           AccessMode: ACCESS_MODE;
                                           dwInheritance: DWORD): DWORD;
var
 pOldDACL, pNewDACL: PACL;
 pSD: PSECURITY_DESCRIPTOR;
 EA: EXPLICIT_ACCESS_W;
begin
pOldDACL :=  nil;
pNewDACL :=  nil;
pSD := nil;

Result := GetNamedSecurityInfoW(pszObjName, DWORD(ObjectType), DACL_SECURITY_INFORMATION, nil, nil, pOldDACL, nil, pSD);
if Result <> ERROR_SUCCESS then
Exit;

ZeroMemory(@EA, SizeOf(EXPLICIT_ACCESS_W));
BuildExplicitAccessWithNameW(@EA, pszTrustee, dwAccessRights, AccessMode, dwInheritance);

Result := SetEntriesInAclW(1, @EA, pOldDACL, pNewDACL);
if Result <> ERROR_SUCCESS then
Exit;

Result := SetNamedSecurityInfoW(pszObjName, DWORD(ObjectType), DACL_SECURITY_INFORMATION, nil, nil, pNewDACL, nil);
end;

   i:= SizeOf(WideChar)*256;
 GetMem(SharePathNT1,i);
 StringToWideChar(SharePath1,SharePathNT1,i);

   For j:=0 to OtvUser.Count-1 Do begin
   u1:=OtvUser.Strings[j];
   GetMem(OUser,i);
   StringToWideChar(u1,OUser,i);

   Err := AddAceToObjectsSecurityDescriptorW(SharePathNT1,
                                             SE_FILE_OBJECT,
                                             OUser,
                                             TRUSTEE_IS_NAME,
                                             GENERIC_ALL,
                                             GRANT_ACCESS,
                                             SUB_CONTAINERS_AND_OBJECTS_INHERIT);

   If Err<>0
     Then begin
       TimedMessageBox('Ошибка '+IntToStr(Err),'Ошибка',mtError,[mbOk],mbOk,Sec);
       Exit;
     end;
   FreeMem(OUser);
 end;
 FreeMem(SharePathNT1);
end;