Как опредилить динамический обект двухмерного масива TImage

Кагда создан двухмерный масив я кликаю по рисунку и он должен исщезнуть а вместо него на етомже месте должен появитса другой с другого масива.
При создании масива вот таким образом

Код:

for i := 1 to 12 do

for k := 1 to 12 do

begin

i2:=i-1;

k2:=k-1;

State[i2,k2]:=TImage.Create(Form1);

with state[i2,k2] do begin

Width:=20;

Height:=20;

Picture.LoadFromFile(path+'not_open.bmp');

SetBounds(20*i2, 20*k2, 20, 20);

parent:=form1;

onmousedown:=cell_mousedown(i2,k2);

end;

где cell_mousedown

Код:

  state[i_pos,k_pos].Visible:=false;

  status[i_pos,k_pos].Visible:=true;

(тоесть в cell_mousedown(i2,k2); я определяю какой именно Timage для дальнейшей с ним работыю)
Выдает что ето не событие а процедура.
Как ето исправить.