Ошибка обращения к памяти

[Zeraim]

repeat
  xx := random(10);
  yy := random(10);
until (FindComponent('Image'+inttostr(9*yy+xx)) as  Timage).Tag = 0;

Непонимаю... На этом куске постоянно выдаёт ошибку что произошло неправильное обращение к памяти чтото там...
Всего у меня 81 имеидж начиная с Image10 заканчивая Image90

Подскажите что не так =\\

А все, рандом(10) выдет 0-9, чтото я совсем туплю 8)

[_Engine_]

перед тем, как присваивать Tag, надо проверить на assigned

[Zeraim]

Скажете по подробней?

[_Engine_]

Например, так:

 if assigned(FindComponent('Blablabla')) then FindComponent('BlaBlaBla').Tag := 0;

[Somebody]

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

[CODE]
Всего у меня 81 имеидж начиная с Image10 заканчивая Image90

Тут получается обращение от 0 до 90.
'Image'+IntToStr(10+Random(90-10+1))
Насчёт проверки

...
c := FindComponent(...);
until (Assigned(c) and .......);

_Engine_, вызывать FindComponent 2 раза как-то не очень хорошо. (А если, например, FindComponent(Random()) 2 раза, то очень нехорошо.)

[Zeraim]

Странно, теперь выдаёт ошибку обращения к памяти и помечает эту строчку

prvrkChisla[n] := sdkArray[yy,xx];

Все переменные присвоены, типа интеджер, массывы тоже интеджер.
prvrkChisla локальный.
sdkArray глобальный.

Может у меня слишком многа переменных, и картинок в экзешнике? Потому он и матюгается на меня ?
=================================== =================================== ==========
Вот и ответ на мой вопрос

inc(n);
prvrkChisla[n] := sdkArray[yy,xx];

Поставил присвоение как n := n + 1; Все заработало =\\
=================================== =================================== ==========
Только дописал еще один цикл опять таже история... Я нечего не понимаю 8(

[Somebody]

Выложи больше кода, так непонятно, что содержится в sdkArray[][].

[Zeraim]

да не все решено, результатом моих косяков и лени откомментить код чтобы проще ориентироватся, стала судоку 8)