Zsynchronizowany timer

Problem nie jest banalny. Jak napisać procedurę wykrywającą zmianę czasu systemowego RTC - najlepiej dokładnie na początku każdej sekundy.

problem jest banalny

zmienna globalna Time: TTime;

i co sekundę

DecodeTime(Now, ...);
DecodeTime(Time, ...);
porównanie ilości sekund
Time := Now;

Chodziło mi o wywołanie procedury na początku każdej sekundy - z dokładnością conajmniej 0.5 ms.