Я поставил вашу строчку после этого кода:
Код:
case Snake.Direction of
1: Snake.Move(Snake.First.X+1,Snake.First.Y);
2: Snake.Move(Snake.First.X,Snake.First.Y+1);
3: Snake.Move(Snake.First.X-1,Snake.First.Y);
4: Snake.Move(Snake.First.X,Snake.First.Y-1);
end;
Snake.Draw(Buffer.Canvas);
и внизу написал вашу строчку и получилась, змейка сама стала ползать так как ей хочется.
Большое вам спасибо.