[Black Raider]

железобетонный вариант:
после очистки создай заного каталог и все.

либо передавай в функцию еще один параметр, имя главной директории которую удалять не нужно и
проверяй если sDir<>MainsDir то RemoveDir(ExtractFileDir(sDir));