Как сделать прогу чтобы показывать сколько дней осталось до...

[KoToSveen]

...
var
  days, hours, minutes, seconds: integer;
begin
  if (MonthOf(Now()) = 12) and (DayOf(Now()) > 20) then
  begin
    days    := DaysBetween    (EncodeDate(YearOf(now()) + 1, 1, 1), Now());
    hours   := HoursBetween   (EncodeDate(YearOf(now()) + 1, 1, 1), Now()) mod 24;
    minutes := MinutesBetween (EncodeDate(YearOf(now()) + 1, 1, 1), Now()) mod 60;
    seconds := SecondsBetween (EncodeDate(YearOf(now()) + 1, 1, 1), Now()) mod 60;
    label1.Caption :=
    'До Нового Года осталось '      +
    IntToStr(days)    + ' дней, '   +
    IntToStr(hours)   + ' часов, '  +
    IntToStr(minutes) + ' минут, '  +
    IntToStr(seconds) + ' секунд!!!';
  end;
...