*Время получить и сравнить для таймера

uses DateUtils

var
cHour,cMin: word;
begin
// получить текущее время
cHour := HourOf(Now);
cMin := MinuteOf(Now);

.............

if (cHour = AlHour) and (cMin = AlMin)
// сигнал !
then begin
.....
end;
end;

• < Назад
• Вперёд >