anchor.diff:      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 }
  
positive.code:   end;
  
  { TqBTorrentsTrackers }
    TqBTorrentsTrackers = class(TFPObjectList)
    private
      function GetByIndex(Index: Integer): TqBTorrentsTracker;
  
negative.code: 
  function TqBTorrentsTrackers.GetByUrl(Url: String): TqBTorrentsTracker;
  var
    oTracker: TqBTorrentsTracker;
  begin
    Result := nil;
    for oTracker in Self do
    begin
      if oTracker.Url = Url then
      begin
        Result := oTracker;
        break;
      end;
    end;
  