783 var i, x, y: LongInt;

   783 var i, x, y: LongInt;

   784 begin

   784 begin

   785 if (Gear^.Message and gm_Destroy) > 0 then

   785 if (Gear^.Message and gm_Destroy) > 0 then

   786    begin

   786    begin

   787    DeleteGear(Gear);

   787    DeleteGear(Gear);

   788    exit

   789    exit

   789    end;

   790    end;

   790 

   791 

   791 if Gear^.Damage > 0 then

   792 if Gear^.Damage > 0 then

   792    begin

   793    begin