anchor.diff:  var
     LSegment: TYearSegment;
   begin
  -  if TryFindSegment(AYear, lttDaylight, LSegment) then
  +  if TryFindSegment(AYear, lttDaylight, true, LSegment) then
       Result := LSegment.FEndsAt
     else
       Result := 0;
  
positive.code:     function GetSegmentUtc(const ADateTime: TDateTime): TYearSegment;
  {$ENDIF}
  
      function TryFindSegment(const AYear: Word; const AType: TLocalTimeType; out ASegment: TYearSegment): Boolean;
  
  {$IFNDEF DELPHI}
      { Purely internal getters }
  
negative.code: var
    LSegment: TYearSegment;
  begin
    if TryFindSegment(AYear, lttAmbiguous, true, LSegment) then
      Result := LSegment.FStartsAt
    else
      Result := 0;
  