[Ghost]

mrac

сравнить текущее время - попадает оно в данный промежуток или нет

Ну дык напиши функцию, типа такой:

type
  strTime = string[5];
function InTimeSet(tStart, tFinal, tVerify: strTime): boolean;
var
  iStart, iFinal, iVerify: integer;
begin
  iStart  := 60 * (StrToInt(copy(tStart, 1, 2)))  + StrToInt(copy(tStart, 4, 2));
  iFinal  := 60 * (StrToInt(copy(tFinal, 1, 2)))  + StrToInt(copy(tFinal, 4, 2));
  iVerify := 60 * (StrToInt(copy(tVerify, 1, 2))) + StrToInt(copy(tVerify, 4, 2));
  if iStart <= iFinal then
    InTimeSet := (iStart <= iVerify) and (iVerify <= iFinal)
  else
    InTimeSet := (iStart <= iVerify) or  (iVerify <= iFinal);
end;