anchor.diff:  var
     LSegment: TYearSegment;
   begin
  -  if TryFindSegment(AYear, lttDaylight, LSegment) then
  +  if TryFindSegment(AYear, lttDaylight, false, LSegment) then
       Result := LSegment.FStartsAt
     else
       Result := 0;
  
positive.code: var
    LSegment: TYearSegment;
  begin
    if TryFindSegment(AYear, lttStandard, LSegment) then
      Result := LSegment.FStartsAt
    else
      Result := 0;
  end;
  
  function TBundledTimeZone.TryFindSegment(const AYear: Word; const AType: TLocalTimeType; 
    out ASegment: TYearSegment): Boolean;
  var
    LSegments: TYearSegmentArray;
    I: Integer;
  
negative.code: var
    LSegment: TYearSegment;
  begin
    if TryFindSegment(AYear, lttInvalid, false, LSegment) then
      Result := LSegment.FEndsAt
    else
      Result := 0;
  