[MursikSix]

Не запускается, выскакивает ошибка. Принцип в том,что они должны image1(Mario) и монетки столкнуться, после этого добавляется счёт.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

// moneta_rect:=a2[j];   image1_rect:=image1.BoundsRect;   moneta_rect:=a2[j].BoundsRect;   Res:=IntersectRect(R,image1_rect,moneta_rect);   //R := IntersectRect( R,image1_rect, moneta_rect);       for j:=1 to 20 do if (a3[j]>0) and Res  then begin  a2[j].Visible:=(false);  //a2[j].Destroy;  s:=s+1; Label1.Caption:='Счёт:'+IntToStr(s);