Creo que aquí hay un problema...
Código Delphi
[-]if (aux mod 2 <> 0) then
begin
(sender as timage).picture:= form2.image1.Picture;
(sender as timage).enabled:= false;
if tag = 1 then
matriz[1,1]:= 1
else
if tag = 1 then
matriz[1,2]:=1
else
Saludos cordiales...