111     for i:= 0 to Targets.Count do

   111     for i:= 0 to Targets.Count do

   112         Targets.ar[i].dead:= false;

   112         Targets.ar[i].dead:= false;

   113 Targets.reset:= false;

   113 Targets.reset:= false;

   114 end;

   114 end;

   115 procedure FillTargets;

   115 procedure FillTargets;

   117     f, e: LongInt;

   117     f, e: LongInt;

   118     Gear: PGear;

   118     Gear: PGear;

   119 begin

   119 begin

   120 Targets.Count:= 0;

   120 Targets.Count:= 0;

   121 Targets.reset:= false;

   121 Targets.reset:= false;