626                        t.ar[i].Active:= true;

   626                        t.ar[i].Active:= true;

   627                        DeleteCI(t.ar[i]);

   627                        DeleteCI(t.ar[i]);

   628                        FollowGear:= t.ar[i]

   628                        FollowGear:= t.ar[i]

   629                        end;

   629                        end;

   630            end

   630            end

   632 end;

   633 end;

   633 

   634 

   634 procedure AssignHHCoords;

   635 procedure AssignHHCoords;

   635 var Team: PTeam;

   636 var Team: PTeam;

   636     i, t: integer;

   637     i, t: integer;