[mak-karpov]

Только одна заковыка, в интервал нельзя внести значение больше 65536

Для того, чтобы можно было нести туда часы надо делать так

Код:

var
   ....
   i : integer = 0;

implementation
   ....
procedure TimerXTimer(Sender : TObject);
var h,m,s : integer;
begin
   i := i + 1;
   s := i mod 60; // Секунды
   m := i div 60; // Минуты
   h := m div 60; // Часы
   if (h = 1) and (m = 10) and (s = 30) then // Сработает в 1:10:30
   begin
// Здесь пишем нужные действия
   end;
end;