anchor.diff:  
   
   procedure TKMUnitGroup.ClearOffenders;
  -var I: Integer; U: TKMUnit;
  +var
  +  I: Integer;
  +  U: TKMUnit;
   begin
     for I := fOffenders.Count - 1 downto 0 do
     begin
  
positive.code: 
    for I := 0 to Count - 1 do
    if Members[I].HitTest(X, Y) and not Members[I].IsDead then
    begin
      Result := True;
      Break;
    end;
  end;
  
  
  
negative.code: 
    for I := 0 to Count - 1 do
    if (Members[I].UID = aUID) and not Members[I].IsDead then
      Exit(Members[I]);
  end;
  
  
  