crear una carpeta/directorio desde delphi

[jafl1965]

De la Unidad SysUtils

If not DirectoryExists('Mi Dir') then
CreateDir('Mi Dir') ;