var
  dirName : String;

begin
  // Создание нового каталога
  dirName := 'Test Folder';
  CreateDir(dirName);

  // Теперь проверяем существует ли каталог
  if DirectoryExists(dirName)
  then ShowMessage(dirName+' существует')
  else ShowMessage(dirName+' не существует');

  // Удаление каталога и просмотр снова
  RemoveDir(dirName);
  if DirectoryExists(dirName)
  then ShowMessage(dirName+' всё ещё существует!')
  else ShowMessage(dirName+' больше не существует');
end;