Odliczanie od teraz do konkretnej daty w Delphi 5

Witam,

Jakiś czas temu kolega zwrócił się do mnie z prośbą o pomoc. Chodziło o stworzenie zegara analogowego który jednocześnie będzie odliczał dni, godziny, minuty i sekundy do konkretnej daty (zaliczenie do szkoły, ma odliczać do egzaminu z matematyki). Pomyślałem że to proste ale... okazało się, że MUSI to być w Delphi 5 więc nie można użyć DateUtils i jest to warunek nie do ominięcia.

Sam zegar jest i działa, więc chodzi tylko o to piekielne odliczanie. Programowaniem zajmowałem się tyle ile musiałem żeby zaliczyć kiedyś Delphi i nie mam pojęcia jak to rozwiązać nie używając DateUtils. Program ściąga już czas systemowy (do samego zegarka) więc chodzi o wklepanie mu drugiej daty i w jakiejś kontrolce zwrócenie ilości dni, godzin itd. Może być też sama ilość dni jeśli będzie to w jakiś sposób prostsze. Nie znalazłem ani na forum ani w sumie nigdzie indziej jakiś gotowców czy chociażby podobnych programów które mógłbym wykorzystać.

Czy ktoś ma jakiś pomysł jak to zrobić?

var Delta:Int64;
var Days,Hours,Minuts,Seconds:Word;
var Str:String;
Delta:=Round((DatieTimePicker1.Date-Now)*24*60*60);
Days:=Delta div (24*60*60);
Hours:=(Delta-(24*60*60)*Days) div (60*60);
Minuts:=(Delta-(24*60*60)*Days-(60*60)*Hours) div 60;
Seconds:=Delta-(24*60*60)*Days-(60*60)*Hours-60*Minuts;
Str:=Format('%d dni %.2d:%.2d:%.2d',[Days,Hours,Minuts,Seconds]);

Jeśli jesteś z okolic Warszawy, to wiszę Ci piwo