Ошибки Access Violation

[OmegaBerkut]

К вашему вниманию - змейка: Unit1.pas

Извините за вложение, но сюда весь код не влез (там 8229 символов).

Я понимаю, что часть кода не оформлена, но ошибки, на которые я наткнулся, выделил комментариями " // тут ошибка ". Их там две, надеюсь, что больше не будет.
В Unit2 ничего особенного, только одна процедура и обработчик кнопки.

Благодарен за помощь.

[Stilet]

Без толку...
Текст ошибки приводи, и весь проект целиком.

[OmegaBerkut]

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

Без толку...
Текст ошибки приводи, и весь проект целиком.

Змейка.rar,
Скрин ошибки (превью):

[Stilet]

Ну все ясно - запускай через F7, F8, и пошаговкой по коду топ-топ

[OmegaBerkut]

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

Ну все ясно - запускай через F7, F8, и пошаговкой по коду топ-топ

Мне яснее - перед нажатием на кнопку " Начать игру (пробел) " происходят такие события:
1) Проверка, запущена/на паузе ли игра,
2) Если запущена/на паузе - просто продолжить/пауза.
3) Если нет - выбрать уровень в другой форме, только потом запустить игру.

Сразу после запуска выполняется третий пункт, по крайней мере, должен, но в процедуре " SelectLevel; ", в операторе " Form1.Enabled:=False; " происходит ошибка, указанная на скриншоте выше.

[Stilet]

в операторе " Form1.Enabled:=False; " происходит ошибка, указанная на скриншоте выше.

Значит форма на этом этапе не доступна. Она еще не создана.
Кстати ошибка не означает что именно на этой строке проблема.
Возможно проблема на строках ниже.
Поэтому я еще раз повторюсь - поставь точку прерывания там и пройди пошаговку. Выясни на каком операторе точно падает, и какие значения принимают переменные, куда указывают объекты форм и т.д.

[Kix.IV]

У меня нормально компилируется и работает. Стоит Delphi XE3. Код не смотрел.
Давно я змейку не видел. Целых десять минут играл. Скорость 66,1 Очки 40 Сложность эксперт

[OmegaBerkut]

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

Значит форма на этом этапе не доступна. Она еще не создана.
Кстати ошибка не означает что именно на этой строке проблема.
Возможно проблема на строках ниже.
Поэтому я еще раз повторюсь - поставь точку прерывания там и пройди пошаговку. Выясни на каком операторе точно падает, и какие значения принимают переменные, куда указывают объекты форм и т.д.

Я вам точно говорю, ошибка выпадает именно на операторе " Form1.Enabled:=False; ", а если я его убираю, то ошибка падает на " StartStop.Caption:=' <не помню, какая тут строка, ошибка в коде комментирована> ' ".
Если бы я не делал пошаговку, я бы ничего не говорил.
Проверка на " if (Form1<>nil) " дала результат true.
На других форумах мне сказали, что " self<>Form1 " - что это может быть ?

[Stilet]

self<>Form1

В той процедуре? Равно если она является методом этой формы.

ошибка выпадает именно на операторе " Form1.Enabled:=False; "

Архивируй проект целиком и прикладывай сюда.

[OmegaBerkut]

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

В той процедуре? Равно если она является методом этой формы.

Архивируй проект целиком и прикладывай сюда.

Змейка.rar.