Bueno, este sí que tiene su utilidad, siempre y cuando no conozcas (como me pasaba a mí cuando lo escribí) el ForceDirectories que incluye Delphi
Código Delphi
[-]
procedure MyMakeDir(Dir: string);
begin
If not DirectoryExists(ExtractFileDir(Dir)) then
MyMakeDir(ExtractFileDir(Dir));
MkDir(Dir);
end;
Este es uno de los muchos procedimientos que creé sin saber que ya existían. Este al menos se quedó bien.