Не запускается, выскакивает ошибка. Принцип в том,что они должны image1(Mario) и монетки столкнуться, после этого добавляется счёт.
Код:
// 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);