anchor.diff:  end;
   
   destructor TBundledTimeZone.Destroy;
  -begin
  +var i: Integer;
  +begin
  +  for i := 0 to FPeriods.Count - 1 do
  +    TObject(FPeriods[i]).Free;
     FPeriods.Free;
     inherited;
   end;
  
positive.code:   I: Integer;
  begin
    { Initialize the compiled list }
    Result := TObjectList.Create(true);
  
    { Check whether we actually have a fule family attached }
    if FPeriod^.FRuleFamily <> nil then
  
negative.code: end;
  
  procedure ForEachYearlyRule(AInfo, AItem, AData: Pointer; out AContinue: Boolean);
  var i: Integer;
  begin
    { Free the value list }
    for i := 0 to TList(AData).Count - 1 do
      TObject(TList(AData).Items[i]).Free;
    TList(AData).Free;
    AContinue := True;
  end;
  