Помогите со "Змейкой" на Делфи.
 

Создаю змею из компонентов TShape. Тело змеи хранится в списке, изначально в списке 3 Shape'a.
Как сделать, что бы при съедании еды, змея увеличивалась(то есть добавлялся к телу змеи еще один Shape) и уже двигалось не 3 (как изначально), а уже 4 Shape'a , ну и тд.

Пожалуйста помогите.

будь другом, назови переменные человеческими именами и добавь комментариев.

Ну вот написал коментарии.

satell, что такое VLevo и VVerh - интуитивно понятно. А вот что такое List, a, b, n, max, snag, чего хочешь добиться внутри функции (словесное описание идеи, на которой всё построено) - для меня полная загадка