Hola de nuevo.
Perdón, recién me doy cuenta que estamos en el foro
API de Windows, entonces sería:
Código Delphi
[-]
var
Nombre: string;
begin
Nombre:= 'Nombre_De_La_Carpeta';
CreateDirectory(PChar(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + Nombre), 0);
...
Saludos.