Реализация временных отрезков Delphi

Объясняю суть. Есть программа... Если быть точным - это расписание поездов, к этому расписанию сделана карта. Сделано условие при котором считывается системное время и при совпадении этого времени с заданным, на карте показывалась точка. Собственно проблема заключается в следующем... Приведу пример: Запускаю карту ->Считывается сист.время -> Считывается отрезок времени (пускай это с 13.15 до 13.45) и если в этот промежуток , есть какой либо поезд, то выводилось сообщение , пускай даже в то же мемо. Как реализовать этот самый промежуток времени и на него наложить событие.

 

Проходишь циклом по всем поездам и смотришь, время какого попадает в твой промежуток

 

Как мне закодить этот промежуток ?
Приложил код (сравнивает системное время, с заданным и выполняет некоторые действия)

Спойлер: Код

var test1:string;
// ...
test1:='23:03:30';
if FormatDateTime('hh:mm:ss', Time) = test1 then
begin
form6.btn4.click;
form6.chk1.Checked:=true;
form6.mmo1.Clear;
form6.mmo1.Lines.Add(test1+' Поезда отправился из Полоцка');
end;