115     for i:= 0 to Targets.Count do

   115     for i:= 0 to Targets.Count do

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

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

   117 Targets.reset:= false;

   117 Targets.reset:= false;

   118 end;

   118 end;

   119 procedure FillTargets;

   119 procedure FillTargets;

   121     f, e: LongInt;

   121     f, e: LongInt;

   122     Gear: PGear;

   122     Gear: PGear;

   123 begin

   123 begin

   124 Targets.Count:= 0;

   124 Targets.Count:= 0;

   125 Targets.reset:= false;

   125 Targets.reset:= false;