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