[fofka]

Добрый вечер. Понимаю что вопрос простой, а не получается.
Не получается условие выполнения процедуры "Alarm" сделать.

PHP код:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  getlocaltime(ST);
 if (ST.Whour=StrToInt(Label23.Caption)) 
   and (ST.WMinute=StrToInt(Label24.Caption))
   and (CheckBox04.Checked=True) 
   and (StrToInt(Label21.Caption='Понедельник')) then Alarm
  else
 if (ST.Whour=StrToInt(Label23.Caption)) 
   and (ST.WMinute=StrToInt(Label24.Caption))
   and (CheckBox05.Checked=True) 
   and (StrToInt(Label21.Caption:='Вторник')) then Alarm
 end; 


На Label21 у меня отображается текущий день недели, вот тут у меня возникла трудность. Как мне правильно записать это условие? Ругается.
Заранее благодарю за совет.

[angvelem]

Если без проверки на регистр, то:

Код:

procedure TForm1.Timer3Timer(Sender: TObject); 
begin 
  getlocaltime(ST); 
  if (ST.Whour=StrToInt(Label23.Caption)) and (ST.WMinute=StrToInt(Label24.Caption)) and 
     CheckBox04.Checked and (Label21.Caption = 'Понедельник') then
    Alarm 
  else if (ST.Whour=StrToInt(Label23.Caption)) and (ST.WMinute=StrToInt(Label24.Caption)) and
     CheckBox05.Checked and (Label21.Caption = 'Вторник') then
    Alarm; 
 end;

[fofka]

Благодарю за ответ. Регистр не важен, можно без проверки обойтись. Вот в таком варианте работает прекрасно. Еще раз спасибо.

procedure TForm1.Timer3Timer(Sender: TObject);
begin
getlocaltime(ST);
if (ST.Whour=StrToInt(Label23.Caption))
and (ST.WMinute=StrToInt(Label24.Caption))
and (CheckBox04.Checked=True)
and (Label21.Caption='Понедельник') then Alarm
else
if (ST.Whour=StrToInt(Label23.Caption))
and (ST.WMinute=StrToInt(Label24.Caption))
and (CheckBox05.Checked=True)
and (Label21.Caption:='Вторник') then Alarm
end;

[angvelem]

Не стоит делать масло-масляное:

Код:

...
and (CheckBox04.Checked=True) 
...
and (CheckBox05.Checked=True) 
...

достаточно:

Код:

...
and CheckBox04.Checked 
...
and CheckBox05.Checked 
...

P.S. форматирование вашего кода просто ужасно.