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: end;
  
  procedure ForEachYearlyRule(AInfo, AItem, AData: Pointer; out AContinue: Boolean);
  begin
    { Free the value list }
    TList(AData).Free;
    AContinue := True;
  end;
  
negative.code:     raise ETimeZoneInvalid.CreateResFmt(@SNoBundledTZForName, [ATimeZoneID]);
  
    { Initialize internals }
    FPeriods := TList.Create;
    CompilePeriods();
  end;
  
  