ger1234567, есть статья по дате и времени, вот http://delphi.do.am/publ/4-1-0-8 А вот как реализовать событие повторяющееся каждую минуту:
if ((GetRelativeTimeMs - SavedTime) > 60000)
or (GetRelativeTimeMs < SavedTime) then
begin
{Событие происходящее 1 раз в минуту}
end;
Думаю не нужно обьяснять что этот код должен распологать я в основном цикле программы.