var
  a, b: TTime;
begin
  a := Time();
  b := StrToTime(TimeToStr(a));
  // В а и b будут разные Double значения, но TimeInRange для разных вариантов вернет True
  TimeInRange(a, a, b); // True
  TimeInRange(b, a, b); // True
  TimeInRange(a, b, a); // True
  TimeInRange(b, b, a); // True

var
  Interval: Int64; // ms
  TimeStart, TimeFinish: TTime;
begin
  Interval := 1000 * 20; // 20 сек
  TimeStart := StrToTime('18:00:00');
  TimeFinish := StrToTime('18:01:00');
  TThread.CreateAnonymousThread(
    procedure
    var
      current: TDateTime;
      currentTime: TTime;
      waitTime: Int64;
      event: TEvent;
      wr: TWaitResult;
    begin
      event := TEvent.Create(nil, True, False, '');
      try
        while True do
        begin
          current := Now();
          currentTime := TimeOf(current);
          currentTime := StrToTime('18:01:30');
          if currentTime < TimeStart then
            // Ждем пока наступит TimeStart
            waitTime := MilliSecondsBetween(currentTime, TimeStart)
          else
            if currentTime < TimeFinish then
              // Ждем когда наступит очередной Interval
              waitTime := MilliSecondsBetween(IncMilliSecond(TimeStart, (MilliSecondsBetween(currentTime, TimeStart) div Interval + 1) * Interval), currentTime)
            else
              // Если TimeFinish включая, то надо еще так
              if currentTime = TimeFinish then
                waitTime := 0
              else
                // Ждем когда наступит TimeStart уже после TimeFinish
                waitTime := MilliSecondsBetween(IncDay(DateOf(current), 1) + TimeStart, current);

          wr := event.WaitFor(waitTime);
          case wr of
            TWaitResult.wrTimeout:
              begin
                //DoEvent();
              end;
            TWaitResult.wrSignaled:
              Break;
            else
              // DoElse
          end;
        end
      finally
        event.Free();
      end;
    end
  ).Start();
end;