[Страдалецъ]

Ну так конечно не прокатит. Вам надо найти компонент с заданым именем, привести его к нужному вам типу. Т.е. примерно так:

Код:

with TPanel(FindComponent('p'+i1+j1))
do begin
    Color := clYellow;
    BevelInner := bvLowered; 
    end;