Se utiliza el procedimiento CreateDir() de la UNIT WinDOS.
Este es el ejemplo de la ayuda:
{CreateDr.PAS}
{Sample code for the CreateDir procedure.}
uses Crt, WinDOS;
const
Create: PChar = 'C:\NEWDIR';
CDrive: Byte = 3;
begin
CreateDir(Create);
Writeln('There is now a new directory at ', Create,'.');
ReadKey
end.
Suerte.