Необходимо написать программу, содержащую необходимое количество процедур, с помощью которых возможно выполнить задание (в прикрепленном файле). 3 разные фигуры на ваш выбор (например, круг, квадрат и ромб). Для первой назначить клавишу 1(0), для второй 2(1), для третьей 3(2). Ввод для выбора отображаемой фигуры производить в листбоксе.
Допустим, введя при запущенной программе в листбокс 1 рядом с ним появляется круг, стираем и вводим 2 и появляется квадрат и т.д. Или что то в этом роде. Если что то будет не так, то я укажу на ошибки.
Delphi Turbo/7