Hola,
Donde las dan las toman...
Por cierto... al cabo "CreateDir" termina usando (en Windows) la función "CreateDirectory", que también podríamos usar nosotros directamente:
Código Delphi
[-]
if not CreateDirectory(PChar('C:\Nueva carpeta'), nil) then
ShowMessage(SysErrorMessage(GetLastError));