anchor.diff:    I: Integer;
   begin
     { Initialize the compiled list }
  -  Result := TObjectList.Create(true);
  +  Result := TList.Create;
   
     { Check whether we actually have a fule family attached }
     if FPeriod^.FRuleFamily <> nil then
  
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;
  