begin
  // Пытаемся создать новый вложенный каталог в текущем каталоге
  if CreateDir('C:NonExistantDirTestDir')
  then ShowMessage('Добавление нового каталога прошло успешно')
  else ShowMessage('Добавление нового каталога вызвало ошибку : '+
                   IntToStr(GetLastError));

  // Now force it to create this directory
  if ForceDirectories('C:NonExistantDirTestDir')
  then ShowMessage('Добавление нового каталога прошло успешно')
  else ShowMessage('Добавление нового каталога вызвало ошибку : '+
                   IntToStr(GetLastError));
end;