Fórum If com dia da semana e hora #212456

Var
  Resultado: Boolean;
begin
If ((DayOfWeek(Date()) = 2) and (DayOfWeek(Date()) = 5)) and ((TimeToStr(Time()) >= ´07:00:00.000´)
and (TimeToStr(Time()) <= ´13:00:00.000´)) Then //De segunda a quinta de 07:00 hs às 13:00
Begin
  Resultado:=True
End
Else
Begin
  If ((DayOfWeek(Date()) = 3) and (DayOfWeek(Date()) = 6) and ((TimeToStr(Time()) >= ´17:00:00.000´)
  and (TimeToStr(Time()) <= ´22:00:00.000´))) Then //De quarta à sexta de 17: hs às 22:00
  Begin
    Resultado:=True
  End
  Else
  Begin
    If (DayOfWeek(Date()) = 7) and ((TimeToStr(Time()) >= ´00:01:00.000´)
    and (TimeToStr(Time()) <= ´23:59:00.000´)) Then //Aos sábados de 00:01 hs às 23:59
    Begin
      Resultado:=True
    End
    Else
    Begin
      Resultado:=False;
    End;
  End;
End;

function TForm1.Horario:boolean;
var Dia:integer;
    hora:integer;
begin
   Dia:=DayOfTheWeek(date);
   hora:=HourOf(time);
   Result:=false;
   case dia of
   1..2: begin
         if (hora >= 7) and (hora < 13) then
            Result:=true;
         end;
   3..4: begin
         if ((hora >= 7) and (hora < 13)) or ((hora >= 17) and (hora < 22)) then
            Result:=true;
         end;
   5:    begin
         if (hora >= 17) and (hora < 22) then
            Result:=true;
         end;
   6: Result:=true;
   end;
end;

  days[1] := ´Sunday´;
  days[2] := ´Monday´;
  days[3] := ´Tuesday´;
  days[4] := ´Wednesday´;
  days[5] := ´Thursday´;
  days[6] := ´Friday´;
  days[7] := ´Saturday´;

  DayMonday = 1;
  DayTuesday = 2;
  DayWednesday = 3;
  DayThursday = 4;
  DayFriday = 5;
  DaySaturday = 6;
  DaySunday = 7;