Verificar permissão de escrita de dada directoria

Gostaria de saber se existe forma de saber se dada directoria tem permissão de escrita. Tentei a função seguinte mas por vezes deixa de funcionar quando se trata de um caminho UNC(ex: \\Pc_Servidor\Pasta\)function Verifica_PastaAcessivel( sCam: String ): Boolean;var lRes : Boolean; nError :Integer; F: TextFile;begin AssignFile(F, sCam + 'Acesso.txt'); {$I-} Rewrite(F); {$I+} nError := IOResult; if nError = 0 then begin lRes := True; CloseFile(F); DeleteFile(sCam + 'Acesso.txt'); end else begin lRes := False; end; Result := lResend;O que acontece por vezes é que IOResult = 3 (Path not found) A pasta existe, e cria na mesma o ficheiro mas devolve False.Se alguém puder me ajudar, acradecia :)Cumprimentos.Betina.