procedure TfmMain.FormCreate(Sender: TObject);
var SI : SECURITY_INFORMATION;
    SD : PSECURITY_DESCRIPTOR;
    SDsize, nLength : DWORD;
    DaclPresent, DaclDefaulted : LongBool;
    pDacl : PACL;
    pAce  : Pointer;

    Result : String;
    i : Integer;
begin
    SI := DACL_SECURITY_INFORMATION;
    SDsize :=  52 ; 
    // определяется экспериментально, смотрим справку по
    // последнему параметру функции GetFileSecurity

    GetMem( SD, SDsize );
  try
    if  GetFileSecurity( PChar('d:\s.exe'), SI, SD, SDsize, nLength ) then
     begin
       if GetSecurityDescriptorDacl( SD, DaclPresent, pDacl, DaclDefaulted ) then
        begin
          if DaclPresent
            then Result := 'ACL presented'
            else Result := 'ACL not present';
          if DaclDefaulted
            then Result := Result + ', was retrieved by a default mechanism'
            else Result := Result + ', was explicitly specified by a user';
          if DaclPresent then
           begin
             Result := Result + # 13 # 10  + 'AclRevision='+IntToStr(pDacl.AclRevision)+
                          ', AclSize='+IntToStr(pDacl.AclSize)+', AceCount='+
                          IntToStr(pDacl.AceCount);
             for i:= 0  to pDacl.AceCount- 1  do
              begin
                if GetAce( pDacl^, i, pAce ) then
                 begin
                    // в каждом из pAce должна храниться инфа по поводу права доступа
                    // но так как в Delphi не прописаны детально соответствующие структуры
                    // (смотреть справку по слову ACE_HEADER)
                    // то переводить их самому из MSDN мне стало лень, (а может не нашел...)
                    // в общем смотреть справку по функция AddAce, AddAccessAllowedAce и т.п.
                    // и повторять все в обратном порядке.
                 end
                else raise Exception.Create( 'GetAce failed with index='+IntToStr(i) );
              end;
           end;
        end
       else raise Exception.Create( 'GetSecurityDescriptorDacl failed!' );
       ShowMessage( Result );
     end
    else raise Exception.Create( 'GetFileSecurity failed!' );
  finally
    FreeMem( SD );
  end;  
end;

ms-help://MS.MSDNQTR.2002JUL. 1033 /netdir/ad/example_code_for_reading_defaultsecuritydescriptor.htm