Урок на делфи 51. Танцующий снеговик

Задание на Delphi. Снеговик из shape. еще и танцует. https://dear-ruslan.ru/new/urok/delphi/delphiurok51.php для выполнение задачи использовал компоненты и функции shape, timer, button и тд.