Hola,
tan fácil como ésto:
Código Delphi
[-]
uses Sysutils;
...
procedure CreaDirectorio(nombredir : String);
begin
if not DirectoriExists(nombredir) then CreateDir(nombredir);
end;
Espero te sirva.
Saludos
EDITO: Se me ha adelantado David, ojo por ojo...
