649 	or TestCollisionYwithGear(HHGear, 1) then

   649 	or TestCollisionYwithGear(HHGear, 1) then

   650 	begin

   650 	begin

   651 	DeleteGear(Gear);

   651 	DeleteGear(Gear);

   652 	exit

   652 	exit

   653 	end;

   653 	end;

   654 

   656 

   655 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);

   657 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);

   656 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0;

   658 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0;

   657 HHGear^.X:= HHGear^.X + HHGear^.dX;

   659 HHGear^.X:= HHGear^.X + HHGear^.dX;

   658 HHGear^.Y:= HHGear^.Y + HHGear^.dY;

   660 HHGear^.Y:= HHGear^.Y + HHGear^.dY;