Народ подскажите как в дельфи заполнить квадратную матрицу методом:
1.Улитки следующим образом:
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7

2.Змейки:

1 2 3 4
8 7 6 5
9 10 11 12
...

P.S.Выводить буду в StringGrid