Ntl-M, А ну проверьте такую схемку. Время UT+/-3 минуты.
ng.rar
------------ Дoбавленo в 19.23:
На любой год

Не компилировалось под FPC. Устранил. Перезалил.
------------ Дoбавленo в 19.56:
Ntl-M, для использования в своей программе, достаточно скопировать IC

Удалено. Ниже выложен окончательный вариант