Код:
if not SetCurrentDir('done') then RaiseLastOSError;
if not RenameFile('defalt', 'default') then RaiseLastOSError;
сработает 1 раз на запуск программы, потому что current directory изменится. чтобы работало несколько раз на запуск можно вертать current directory взад, либо использовать абсолютные пути.