Я вам предложил в начале несколько экстремальный вариант обращения к панельке:
Код:
with TPanel(FindComponent('p'+i1+j1)) do
этот метод будет вызывать ошибку если панельки с искомым именем нет. Возможно проблема в этом. Правильнее будет сначала делать проверку на существование объекта, а уже потом обращаться к нему.