Código Delphi [-] MkDir(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'Nombre_De_Tu_Carpeta');
MkDir(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'Nombre_De_Tu_Carpeta');