anchor.diff:  var
     K: Integer;
   begin
  -  if (fVisitedIdx = High(Byte)) then
  -    MakeNewQueue(False);
     Inc(fVisitedIdx);
     for K := 0 to aCnt - 1 do
       AddPolyToQueue(ffRally, aGroupsPoly[K]);
  
positive.code: var
    K, L, Poly: Integer;
  begin
    if (fVisitedIdx = High(Byte)) then
      MakeNewQueue(False);
    Inc(fVisitedIdx);
    for K := 0 to aCluster.GroupsCount - 1 do
    begin
  
negative.code: 
  procedure TKMArmyVectorField.Flood(aCalulateDistance: TKMCalculateDistance; aAssignDistance: TKMAssignDistance);
  var
    K: Integer;
    Idx, Dist: Word;
  begin
    while RemoveFromQueue(Idx) do
      //if CanBeExpanded(Idx) then
  