Shape2.left:=Shape2.left+SpeedX;

Shape2.top:=Shape2.top+speedY;

if (Shape2.top<0) then speedY:=-speedY;

If (Shape2.left<=0) or (Shape2.left + Shape2.width >= clientwidth)  then speedX:=-speedX;

if Shape2.top + Shape2.height >= clientheight then GameOver;

if (Shape2.left+Shape2.width >= Shape1.left) and (Shape2.left <= Shape1.left+Shape1.width)

and (Shape2.top+Shape2.Height>= Shape1.top) then

begin

speedY:=-speedY;

IncSpeed;

Score:=Score+1;

Label1.caption:='Score: '+IntToStr(Score);

end;