Напишите, программу в Delphi с формой, пожалуйста!

Разработать программу, которая реализует "магически" шар выдавая случайный результат. К примеру, пользователь задает вопрос: "Есть ли жизнь на марсе?", а программа выдает результат из предложенного:
Да
Нет
Скорее всего да
Скорее всего нет
Возможно
Имеются перспективы
Вопрос задан неверно
Учесть возможность, что для ряда вопросов программа выдает определенные ответы.