2788 if Gear^.Timer < 2000 then

  2788 if Gear^.Timer < 2000 then

  2789     inc(Gear^.Timer, 1)

  2789     inc(Gear^.Timer, 1)

  2790 else

  2790 else

  2791     begin

  2791     begin

  2792     DeleteGear(Gear);

  2792     DeleteGear(Gear);

  2794     end;

  2793     end;

  2795 end;

  2794 end;

  2796 

  2795 

  2797 ////////////////////////////////////////////////////////////////////////////////

  2796 ////////////////////////////////////////////////////////////////////////////////

  2798 procedure doStepBirdyFly(Gear: PGear);

  2797 procedure doStepBirdyFly(Gear: PGear);