[Delphi] 하위 폴더까지 한번에 생성하기

uses SysUtils;

function ForceDirectories(Dir: string): Boolean;


이런 좋은 함수를 이제야 알다니..