Не могу понять причину ошибки

procedure TForm1.btn3Click(Sender: TObject);
var
  rect:TRect;
begin
  form1.ClientWidth:=555;
 
  scrlbx1.Align:=alTop;
  setlength(image_array,20);
  for i:=0 to length(image_array)-1 do
    for j:=0 to CountRowElement-1 do
      begin
        image_array[i,j]:=TImage.Create(scrlbx1);
        image_array[i,j].Parent:=scrlbx1;
        image_array[i,j].Name:='Row'+inttostr(i)+'_Col'+inttostr(j);
        image_array[i,j].Left:=j*(size_+5)+5;
        image_array[i,j].Top:=i*(size_+5)+5;
        image_array[i,j].Canvas.Brush.Color:=clRed;
        image_array[i,j].Canvas.FillRect(Rect);
        image_array[i,j].Visible:=true;
        image_array[i,j].Height:=size_;
        image_array[i,j].Width:=size_;
        image_array[i,j].Tag:=Randomrange(1,10);
        image_array[i,j].Canvas.Brush.Color:=RGB($d8,$b9,$64);
        image_array[i,j].Canvas.Rectangle(0,0,size_,size_);
        il1.Draw(image_array[i,j].Canvas,0,0,image_array[i,j].Tag);
        il1.Draw(image_array[i,j].Canvas,0,0,0);
        image_array[i,j].Transparent:=true;
        image_array[i,j].OnClick:=img1Click;
      end;
 
    //рамка для выделеного елемента
    begin
      imgselect_:=false;
      imgSelect:=Timage.Create(scrlbx1);
      imgSelect.Parent:=scrlbx1;
      imgselect.Visible:=false;
      imgselect.Height:=size_;
      imgselect.Width:=size_;
      il1.Draw(imgSelect.Canvas,0,0,20);
      imgSelect.OnClick:=img1Click;
    end
 
end;

procedure TForm1.img1Click(Sender: TObject);
var
  s:string;
  ACol,ARow:integer;//Array
  TCol,TRow:integer;//Temp
begin
    if (sender as TImage).Canvas.Pixels[0,0]<>337321 then
      begin
        imgselect_:=true;
        s:=(sender as TImage).Name;
        ACol:=StrToInt(s[Pos('l',s)+1]);
        ARow:=StrToInt(s[Pos('w',s)+1]);
        imgSelect.Left:=(sender as Timage).Left;
        imgSelect.Top:=(sender as TImage).Top;
        imgselect.Canvas.Pen.Color:=RGB($d8,$b9,$64);
        imgSelect.Canvas.Brush.Color:=RGB($d8,$b9,$64);
        imgSelect.Canvas.Rectangle(3,3,(sender as TImage).Width-3,(sender as TImage).Height-3);
        il1.Draw(imgSelect.Canvas,0,0,(sender as TImage).Tag+20);
        imgSelect.Visible:=true;
      end
        else
          begin
//            showmessage((sender as TImage).Name[Pos('Col'+4)]);
            imgselect_:=False;
            imgSelect.Visible:=false;
            imgselect.Canvas.Pen.Color:=RGB($d8,$b9,$64);
            imgSelect.Canvas.Brush.Color:=RGB($d8,$b9,$64);
            imgSelect.Canvas.Rectangle(3,3,(sender as TImage).Width-3,(sender as TImage).Height-3);
          end;
 
//  TCol:=ACol;
//  TRow:=ARow;
//  while True do
//    begin
//      if TCol<10 then
//        begin
//          if image_array[ACol,ARow].Tag=image_array[ACol+1,ARow].Tag then
//            begin
//              image_array[i,j].Canvas.Brush.Color:=RGB($d8,$b9,$64);
//              image_array[i,j].Canvas.Rectangle(0,0,size_,size_);
//              il1.Draw(image_array[i,j].Canvas,0,0,image_array[i,j].Tag);
//
//            end;
//
//        end
//          else
//            begin
//              inc(TRow);
//              TCol:=0;
//            end;
//    end;
 
//  showmessage('Row:'+IntToStr(ARow+1)+#10#13+'Col:'+IntToStr(Acol+1));
 
end;

function GetCoord(Sender:TObject):TPoint; //Получаем координаты поля
var subs:string;
begin
  subs:=(sender as TImage).Name;
  GetCoord.X:=StrToInt(subs[Pos('l',subs)+1]);  //записываем выраную ячейку  Col
  GetCoord.Y:=StrToInt(subs[Pos('w',subs)+1]);  //записываем выраную ячейку  Row
end;
 
procedure ClearSelected(Sender:TObject);  //Очищаем выделение
begin
  imgselect_:=False;                      //Флаг выделения
  imgSelect.Visible:=false;
  imgselect.Canvas.Pen.Color:=RGB($d8,$b9,$64);
  imgSelect.Canvas.Brush.Color:=RGB($d8,$b9,$64);
  imgSelect.Canvas.Rectangle(3,3,size_-3,size_-3);
end;
 
procedure SelectObj(Sender:TObject);      //Отрисоваваем выделеную ячейку
var s:string;
begin
  imgselect_:=true;
  ArPoint:=GetCoord(Sender as TImage);
  imgSelect.Left:=(sender as Timage).Left;
  imgSelect.Top:=(sender as TImage).Top;
  imgselect.Canvas.Pen.Color:=RGB($d8,$b9,$64);
  imgSelect.Canvas.Brush.Color:=RGB($d8,$b9,$64);
  imgSelect.Canvas.Rectangle(3,3,size_-3,size_-3);
  form1.il1.Draw(imgSelect.Canvas,0,0,(sender as TImage).Tag+20);
  imgSelect.Visible:=true;
end;

        if imgselect_ then  //если поле уже выбрано
          begin //запускаем проверку
            TmpPoint:=ArPoint;
            ArPoint:=GetCoord(Sender as TImage);
            if CheckHorz(TmpPoint,ArPoint) then  //Горизонталь
              begin
 
              end
            else
              if CheckVert(TmpPoint,ArPoint) then//Вертикаль
                begin
 
                end
              else         //иначе перекрашиваем выделение
                  begin
                    selectobj(Sender as TImage);
                  end;
          end
            else
              begin //если поле не выбрано
                SelectObj(Sender as TImage);
              end;