anchor.diff:  procedure TThrottledEvent.NotifyLater;
   begin
     inc(FSuppressedInvocations);
  -  if NOT FTimer.Enabled then
  +  if NOT FTimer.Enabled then begin
  +    FTimer.Interval := ClipValue( Round( Abs( FInterval.TotalMilliseconds ) ), 10, High(integer)) ;
       FTimer.Enabled:=true;
  +  end;
   end;
   
   procedure TThrottledEvent.OnTimer(Sender: TObject);
  
positive.code:     temNone: NotifyNow;
      temNotifyEveryInterval: begin
        LDuration := TTimeSpan.Subtract(Now, FLastActualNotify);
        if LDuration > Interval then
          NotifyNow;
      end;
      temNotifyOnEventBurstFinished: begin
        LDuration := TTimeSpan.Subtract(Now, FLastClientNotify);
        if LDuration > Interval then
          NotifyNow;
      end;
    end;
  end;
  
negative.code: begin
    if ATimeSpan.TotalMilliseconds = 0 then
      raise EArgumentOutOfRangeException.Create('ATimeSpan was 0');
    FInterval := ATimeSpan;
  end;
  
  {%endregion}
  