Az alábbi eljárással könnyen megoldható az egymásba ágyazott könyvtárak (könyvtárak és alkönyvtárak) egyidejű létrehozása:

uses SysUtils, FileCtrl;

  . . .

procedure MkDirMulti(sPath : string);
begin
  if('\' = sPath[Length(sPath)])then
  begin
  sPath := Copy(sPath, 1, Length(sPath)-1);
  end;
  if( ( Length( sPath ) < 3 ) or
   FileCtrl.DirectoryExists(sPath) )then
  begin
Exit;
end;
  MkDirMulti(SysUtils.ExtractFilePath(sPath ) );
  try
  System.MkDir( sPath );
  except
  { kivételkezelés }
  end;
end;


Egy példa a használatára:
procedure TForm1.Button1Click(Sender: TObject);
begin
  MkDirMulti('c:\temp\one\two\three\four' );
end;