……
    oSecurityInformation :=  OWNER_SECURITY_INFORMATION
                            + GROUP_SECURITY_INFORMATION
                            + DACL_SECURITY_INFORMATION
                            + SACL_SECURITY_INFORMATION;
…..
var dwSize: DWord;
oSecurityInformation: SECURITY_INFORMATION;
……
    if not GetFileSecurity(PChar(inFile), oSecurityInformation, Pointer(1), 0,
      dwSize) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
begin
…..
     GetMem(psd,dwSize);
            if psd <> nil then
              begin
                if not(GetFileSecurity(PChar(inFile), oSecurityInformation, psd,
                  dwSize, dwSize)) then
                  begin
                    // сюда не попадает из чего можно сделать вывод что памяти все таки хватило, но
                    result := false;
                  end
                  else
                  begin
                    nLE := GetLastError; // = вываливает 122 ю ошибку. Получается и GetFileSecurity отработал и вернул True и ошибка при этом есть.
                  end;
……………..

 Calling this function usually resets the operating system error state.