uses FileCtrl;
   
var Dir: string;
begin
  Dir := 'c:\123\456\789\0';
  if (not DirectoryExists(Dir)) and ForceDirectories(Dir) then
      Showmessage(Dir + ' was created');
end;