Бесконечные очки

if (a3[j]>0) and (image1.left+Image1.Width>a2[j].left) and (image1.Top+Image1.Width>a2[j].top) then //a2(монетки) //image1(главный герой)
   begin
    a2[j].Visible:=(false);
    //a2[j].Destroy;
    s:=s+1;
   Label1.Caption:='Счёт:'+IntToStr(s);

Var
  Hero,Obj,R: TRect;
begin
 Hero := Rect(1,1,10,10);
 Obj := Rect(5,5,6,6);
 if IntersectRect(R, Hero, Obj)
 then ShowMessage('Входит')
 else ShowMessage('Выходит')
end;

image1_rect:=image1.BoundsRect;
moneta_rect:=a2[j].BoundsRect;
 Res := IntersectRect( image1_rect, moneta_rect);

image1_rect:=image1.BoundsRect;
moneta_rect:=a2[j].BoundsRect;
 Res := IntersectRect( image1_rect, moneta_rect);

image1_rect:=image1.BoundsRect;
moneta_rect:=a2[j].BoundsRect;
 Res := IntersectRect( image1_rect, moneta_rect);

    image1_rect:=image1.BoundsRect;
     moneta_rect:=a2[j].BoundsRect;
     Res := IntersectRect( R,image1_rect, moneta_rect);
 
 
     for j:=1 to 20 do
   if (a3[j]>0) and intersectrect(R,image1_rect, moneta_rect)  then
   begin

 Res := IntersectRect( R,image1_rect, moneta_rect);