490                 else SetLittle(Gear^.dX);

   490                 else SetLittle(Gear^.dX);

   491 

   491 

   492 if (not isFalling) and

   492 if (not isFalling) and

   493    (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then

   493    (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then

   494    begin

   494    begin

   495    Gear^.State:= Gear^.State and not gstMoving;

   496    Gear^.State:= Gear^.State and not gstMoving;

   496    SetLittle(Gear^.dX);

   497    SetLittle(Gear^.dX);

   497    Gear^.dY:= _0

   498    Gear^.dY:= _0

   498    end else Gear^.State:= Gear^.State or gstMoving;

   499    end else Gear^.State:= Gear^.State or gstMoving;

   499 

   500