anchor.diff:  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;
  
positive.code:     raise ETimeZoneInvalid.CreateResFmt(@SNoBundledTZForName, [ATimeZoneID]);
  
    { Initialize internals }
    FPeriods := TObjectList.Create(true);
    CompilePeriods();
  end;
  
  
negative.code: end;
  
  destructor TBundledTimeZone.Destroy;
  var i: Integer;
  begin
    for i := 0 to FPeriods.Count - 1 do
      TObject(FPeriods[i]).Free;
    FPeriods.Free;
    inherited;
  end;
  