Развивающая игра "Посчитай фигуры".

1. Заголовок:
procedure TForm1.Action1Execute(Sender: TObject);
Описание:
обработчик события OnExecute действия Action1 компонента ActionList1. Вызывается при нажатии на Button2 (Выход) и при выборе пункта N2 (Выход) главного меню (компонент MainMenu1). Выводит сообщение: «Приходите еще...», - и выполняет закрытие окна программы.
Листинг:
procedure TForm1.Action1Execute(Sender: TObject);
begin
ShowMessage('Приходите еще...');
Close;
end;

Программа представляет собой обучающую игру «посчитай фигуры». Пользователь должен ввести название вида изображенных фигур (круг или квадрат) и их количество в предназначенные для этого поля. Время на выполнение каждого задания ограничено (30 секунд). По истечение этого времени, если пользователь не ввел вариант ответа, выводится сообщение: «Время вышло! Играем заново», - и выдается новое задание. Если ответ был введен, в зависимости от его правильности выводится либо сообщение: «Молодец!», либо сообщение: «Попробуй еще». Пользователь может поменять цвет фигур в любой момент игры. Этот цвет будет использоваться в игре до новой смены пользователем либо до выхода из программы.

нет