delphi 判断目录是否有写入权限

没有找到判断目录是否有写入权限，自己写了一个，我觉得应该是有相应的函数的，但是没有找到。

function DirWritable(m_dir : string) : boolean;  //目录是否有写入权限var tmpStrs: TStrings;  //测试数据目录是否写权限    tmpName : string;begin  //参数为目录，包含最后的斜杠  //如果可写，返回True  try    Result := True;    tmpStrs := TStringList.Create;    tmpStrs.Add('1and1-aMail');    tmpName := m_dir + 't1e2s3t4.txt';    tmpStrs.SaveToFile(tmpName);    TFile.Delete(tmpName);  except    on e: EFCreateError do    begin      //拒绝访问，无写入权限      Result := False;    end;  end;end;