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

  // Удаление этого каталога
  if RemoveDir('TestDir')
  then ShowMessage('TestDir удален')
  else ShowMessage('TestDir не удален, произошла ошибка : '+
                   IntToStr(GetLastError));
end;