Это из-за вашего состояния elif
, которое должно быть:
elif cost >= 500 and cost <= 5000:
Просто "Сохраните Проект как" из меню файла в Delphi, дающем его имя, которое Вы хотите и, позже когда Вы чувствуете себя подобно, удаляете Project2.* файлы от Вашей папки, поскольку они больше не нужны.
К вашему сведению: Запуск с Delphi 8, можно просто щелкнуть правой кнопкой по проекту в менеджере проектов и выборе, "Переименовывает" (или просто нажмите F2). Это обладает преимуществом по подходу "Сохранить Как", что Вы не заканчиваете с копией.
(извините, никакой Delphi 7 - благодаря Lars для обновления)