Делаю тетрис на делфи немогу решить проблему

[Gigabit]

Дорогие программисты, буквально несколько часов назад столкнулся с проблемой -
Делаю тетрис.
Есть массив 28 на 12 клеток, в этот массив пишу фигуры.
Обозначаю клетки принадлежащие фигуре единицами.
Сделал коллизию по X и Y.
В таймере поставил прорисовку занятых клеток, и сдвиг по Y до тех пор пока не наступит коллизия.
Когда происходит коллизия по Y его значение сбрасывается и создаётся новая фигурка.
Решил сгладить движение фигур появилась ошибка.
Я добавил новую переменную YL и начал прибавлять ей значение от 1 до 20 то есть когда таймер тикает увеличивается сначала YL и если достигает 20 то YL сбрасывается и к основной координате (то есть Y) прибавляется единица. По задумке всё хорошо вот только на практике, все клетки со значением 1 стали двигаться от 1 до 20 пикселей.
Я решил это обойти переименовав фигурки другой цифровой.
Вроде всё просто когда коллизия по Y истинна (то есть фигурке некуда больше падать) обозначить все её клетки цифрой 2.
И графически цифру 2 отображать по другому (без использования переменной YL).
Всё просто! ага не тут-то было, когда я ставлю в своей программе выполнение чего либо после ложности коллизии всё хорошо но когда коллизия истинна и я пытаюсь переписать (записать, затереть) фигурку в программе вылетает ошибка.

Access volation at address 004594f5 in module 'tetris1.exe'. Read of address 00000360.

вот процедура таймера

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     if (colisionY=false)and(YL<20)then
     begin
     YL:=Yl+1;
     end
     else
     if (ColisionY=false)and(YL=20) then
     begin
     YL:=0;
     figure(0);
     y:=y+1;
     figure(1);
     end  else
     begin
     figure(0);   // <------- вот в этом месте ошибка
     del;
     y:=6;
     newForm;
     end;
     draw;
end;

Помогите пожалуйста, в чём я ошибся?

Выкладываю исходник и почти рабочий Exe, с двумя текстурками, управление стрелками вверх вправо и влево, стрелку вниз не нажимать она была для тестов.

[Juffin]

такая ошибка возникает, например, когда что-пишешь за границами массива

[Gigabit]

Сообщение от Juffin

такая ошибка возникает, например, когда что-пишешь за границами массива

Спасибо Juffin, я не знаю что привело к этой ошибке но я нашёл выход -
Вместо того чтобы лепить фигуру другими цифрами, я просто заменил все единицы массива на 2ки после коллизии, ведь когда коллизия произошла мне фигурка больше ненужна, вот я и перебираю всё поле в тот момент пока новая фигурка ещё не создана!
Вот решение, надо было просто поискать другой вариант.

for I := 4 to 27 do
  for k := 1 to 11 do
  if AR[k,i]=1 then
  AR[k,i]:=2;

Единственный минус это то что компьютеру придётся лишний раз перебрать массив, что может сказатся на производительности(((

[Juffin]

Единственный минус это то что компьютеру придётся лишний раз перебрать массив, что может сказатся на производительности(((

сомневаюсь, что это серьезно скажется

[Gigabit]

Сообщение от Juffin

сомневаюсь, что это серьезно скажется

Да я согласен именно это не скажется, но весь механизм отображения уже привел развитие программы в тупик, дело в том что - для того чтоб показать следующий кадр программа выполняет следующие действия.
1 Отображает фон
2 переберает весь массив
3 Отображает части фигур в тех местах где они записаны в массиве
4 Проверяет коллизию
Мой старенький компьютер ели как с этим справляется, загрузка ЦП на 100%,
и что самое важное программа выполняется медленно, то есть
чтоб фигурки двигались с нормальной скоростью интервал таймера должен быть минимальный. Но ведь надо в игре сделать хотя бы 10 уровней на на каждом из которых фигурки должны двигаться быстрей чем на предыдущим. (((((
В одной из своих программ я уже обходил это с помощью сокращения расчётов, в ней любой движущийся Юнит прорисовывался на две клетки вокруг себя, а всё остальное не прорисовывалось.
Но моя фантазия на этот раз меня подвела и я никак не могу придумать алгоритм, сокращающий перебор массива.
Если у вас буду какие нибудь идеи с удовольствием приму во внимание.

[Gigabit]

Прошу прощения, задал вопрос и нашел ответ воспользовавшись поиском.
Админ удали этот пост пожалуйста.