Две учебные программы. Delphi 7

Необходимо написать 2 программы для демонстрации принципов ООП (инкапсуляция, наследование, полиморфизм).

Необходимо показать наглядное развитие простых классов.

Программа 1:

1. Простое Окно;

2. Имеется поле например 500*500 пикселей;

3. Button "Старт";

4. Option (Класс1 Класс2 Класс3)

Описание работы:

При нажатии на "Старт" в поле со случайными координатами добавляется окружность (диаметр 10 пикселей).

Классы окружности которая будет добавлена определяется выбором Option "Класс1,2,3".

Окружность Класс1 (Базовый):

1. Имеет диаметр

Окружность Класс2 (Развитый вариант Класса1):

1. Имеет Диаметр,

2. Метод Заливки (Выполняется при инициализации), заливает окружность в розовый цвет.

3. Метод Двигатся (Выполняется при инициализации и работает), окружность перемещается по полю в произвольном направлении, до достяжения границ поля, после чего движение прекращается.

Окружность Класс3 (Развитый вариант Класса2):

1. Имеет Диаметр,

2. Метод Заливки с улучшениями (Выполняется при инициализации), заливает окружность в случайный цвет.

3. Метод Двигаться с улучшениями (Выполняется при инициализации и работает), окружность перемещается по полю в произвольном направлении, при достижении границ поля направление движения меняется случайно и движение продолжается. То есть метод будет постоянно вызывать сам себя при достижении границ.

Кнопка "Старт" останавливает текущее движение, очищает поле, добавляет окружность на поле.

Все Классы окружностей наследуют необходимое от более простых. И изменяют некоторые Методы.

-----

Вторая программа - подобна описанной, на ваш выбор.