anchor.diff:  
   function TqBTorrentsTrackers.GetByUrl(Url: String): TqBTorrentsTracker;
   var
  -  index: Integer;
  +  oTracker: TqBTorrentsTracker;
   begin
     Result := nil;
  -  for index := 0 to Count - 1 do
  -  begin
  -    if Items[index].Url = Url then
  -    begin
  -      Result := Items[index];
  +  for oTracker in Self do
  +  begin
  +    if oTracker.Url = Url then
  +    begin
  +      Result := oTracker;
         break;
       end;
     end;
  
positive.code:     procedure SetByUrl(Url: String; AValue: TqBTorrentsTracker);
    protected
    public
      procedure LoadTrackers(const aJSON: String);
      procedure LoadTrackers(const aJSONData: TJSONData);
      procedure LoadTrackers(const aJSONArray: TJSONArray);
  
negative.code:     qtrsNotWorking: Result := csStatusNotWorking;
      qtrsNotContactedYet: Result := csStatusNotContactedYet;
    end;
  end;
  
  { TqBTorrentsTrackersEnumerator }
  
  constructor TqBTorrentsTrackersEnumerator.Create(ATrackers: TqBTorrentsTrackers);
  begin
    FTrackers := ATrackers;
    FPosition := -1;
  end;
  
  function TqBTorrentsTrackersEnumerator.GetCurrent: TqBTorrentsTracker;
  begin
    Result := FTrackers[FPosition];
  end;
  
  function TqBTorrentsTrackersEnumerator.MoveNext: Boolean;
  begin
    Inc(FPosition);
    Result := FPosition < FTrackers.Count;
  end;
  
  { TqBTorrentsTracker }
  