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