Tiempo

[armando]

saludos
necesito hacer una aplicacion con tiempos, trabajo con delphi 7 y firebird
resulta que en un turno se trabaja de 7 de la mañana a 2 de la tarde en segundo turno de 14 a 23 de la noche
existe alguan funcion que pueda medir el tiempo, es decir que me pueda decir en que periodo de tiempo esta conforme al reloj del cpu

label13.Caption:=timetostr(now);
IF STRTOTIME(LABEL13.Caption)>= strtotime('10:01:00 p.m.') THEN
BEGIN
EDIT2.Enabled:=TRUE;
EDIT4.Enabled:=TRUE;
P11.Enabled:=TRUE;
MT1.Enabled:=TRUE;
T1T.Enabled:=FALSe;
END
else
IF STRTOTIME(LABEL13.Caption) = strtotime('12:30:00 p.m.') THEN
BEGIN

end;

no existe el BETWEEN????