Нужен код на Паскале для переименования файлов/папок помогите ПЖ

Здравствуйте, прошу помощи, после востановления компа были переименованы группа папок и файлов от мозлы, половина данных полетело:resent:(
Буду благодарен за какой-нить код на паскале, чтоб их востановить
----
вот что нужно переименовывать:
есть папка, в ней лежать другие папки и подпапки папок итд..
во всех этих папок нужно искать папки/файлы в которых содержится такое: (2) и затем убрать это из названии
ПРИМЕР:
если найден файл prefs(2).js , то переименовать в prefs.js
при етом может быть, что в одной директории уже лежат и prefs(2).js и prefs.js, по этому перед этим сначало надо бы удалить старый prefs.js и заменить переименованным вот :)
и также со всеми папками: если в название найдено сочетане "(2)" , то также удалить его, и если есть уже с таким именем , то удалить предыдущий. вот
-----
у меня есть прога "ReNamer" , но вней я так и не нашел нужное правило,
там есть раздел "Скрипт(paskal)" и окно
// Добавьте свой код здесь
end.

вот нужно теперь вставить такой код чтоб правильно все переименовать
--
жду отета зарание спасибо :)

срочно нужно