Сообщение в определенное время.

[DIgorevich]

в таком случае можно было сделать совсем просто:

 procedure TForm1.Timer1Timer(Sender: TObject);
begin
if timetostr(time)='15:10:00' then showmessage('Обед');
end;

[dmitriegorovih]

D.O.G Вы чучуть напутали надо было всего лишь поставить таймер в 1 мили секунду, если вы поставили бы 1 секунду то во 1-первых были бы косяки в сообщениях, их было бы 1000 да и пришлось делать чтоб было одно сообщение, если вы не поняли тогда приведу код вот так

procedure TForm1.Timer1Timer(Sender: TObject);
var
 SystemTime: TSystemTime; //Некое время
 Chas,minute,sekunda,milisekunda:integer;
begin
GetLocalTime(SystemTime); //Получаем системное время
chas:=SystemTime.wHour; //Результату присваиваим Час(wHour)
minute:=SystemTime.wMinute;
sekunda:=SystemTime.wSecond;
milisekunda:=SystemTime.wMilliseconds;
If (chas=20) and (minute=0) and (sekunda=25) and (milisekunda=0) then begin
showmessage('Обед');
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=1;
end;

[_SERGEYX_]

Странно, что никто не обратил внимание на мой пост #6.
В моем случае код сработает 1 раз в минуту.
При установке таймера в 1 - код сработает за минуту 60 тысяч раз.
Зачем грузить систему? Пожалейте процессор.

[dmitriegorovih]

Ну почему не обратили просто Автор темы в посту #17 упоминал что у него и часы прикреплены к этому таймеру. А так ваш код реально будет меньше грузить процессор хотя вот мои часы в памяти всего лишь 14 метров оперативки хавают можно и меньше но в лом писать