336       if not (TestCollisionXwithXYShift(Gear, 0, -1, Sign(Gear.dX))

   336       if not (TestCollisionXwithXYShift(Gear, 0, -1, Sign(Gear.dX))

   337          or HHTestCollisionYwithGear(Gear, -1)) then Gear.Y:= Gear.Y - 1;

   337          or HHTestCollisionYwithGear(Gear, -1)) then Gear.Y:= Gear.Y - 1;

   338       end;

   338       end;

   339    if not TestCollisionXwithGear(Gear, Sign(Gear.dX)) then Gear.X:= Gear.X + Gear.dX;

   339    if not TestCollisionXwithGear(Gear, Sign(Gear.dX)) then Gear.X:= Gear.X + Gear.dX;

   340 

   340 

   341    if not HHTestCollisionYwithGear(Gear, 1) then

   342    if not HHTestCollisionYwithGear(Gear, 1) then

   342    begin

   343    begin

   343    Gear.Y:= Gear.Y + 1;

   344    Gear.Y:= Gear.Y + 1;

   344    if not HHTestCollisionYwithGear(Gear, 1) then

   345    if not HHTestCollisionYwithGear(Gear, 1) then

   345    begin

   346    begin

   367    end

   368    end

   368    end

   369    end

   369    end

   370    end

   370    end

   371    end

   371    end;

   372    end;

   373    SetAllHHToActive

   373    SetAllHHToActive

   374    end

   374    end

   375 end;

   375 end;

   376 

   376 

   377 ////////////////////////////////////////////////////////////////////////////////

   377 ////////////////////////////////////////////////////////////////////////////////