3097                     begin

  3097                     begin

  3098                     dX:= _50 * cGravity * (Gear^.X - X) / _25;

  3098                     dX:= _50 * cGravity * (Gear^.X - X) / _25;

  3099                     dY:= -_450 * cGravity;

  3099                     dY:= -_450 * cGravity;

  3100                     Active:= true;

  3100                     Active:= true;

  3101                     end

  3101                     end

  3102         end ;

  3104         end ;

  3103         AfterAttack;

  3105         AfterAttack;

  3104         DeleteGear(Gear);

  3106         DeleteGear(Gear);

  3105 (*

  3107 (*

  3106     Gear^.X := Gear^.X + Gear^.dX;

  3108     Gear^.X := Gear^.X + Gear^.dX;