LastDayofCurrentMonth problem

[rhodan]

hi!

ich möchte in einem Label die letzten verfügbaren arbeitstage des aktuellen monats anzeigen lassen, einschliesslich des aktuellen tages. das klappt soweit auch ganz gut, sprich in einem monat mit 31 tagen wird am 30. "2 resttage diesen monat" angezeigt. allerdings wird dies auch beim letzten tag angezeigt..ich hab versucht es so zu lösen:

Code:

var
  tage: Integer;
  datum1: TDate;
.
.
.

datum1 := now;

  if datum1 = LastDayOfCurrentMonth then
  begin
  tage   := DaysBetween(datum1, LastDayOfCurrentMonth)+1;
  datumlabel.caption.text:=FormatDatetime('d. mmmm yyyy - ', Now)+(inttostr(tage)+' Resttage diesen Monat!')
  end
  else
  begin
  tage   := DaysBetween(datum1, LastDayOfCurrentMonth)+2;
  datumlabel.caption.text:=FormatDatetime('d. mmmm yyyy - ', Now)+(inttostr(tage)+' Resttage diesen Monat!');
  end;

der code in der "else" schleife ist der den ich ursprünglich ausführte und der bis auf den letzten tag funktionierte. allerdings wird "datum1 = LastDayOfCurrentMonth" nicht so ausgeführt bzw erkannt wie ich es mir erhofft habe, es wird immer die else schleife ausgeführt..auch am letzten tag...hat jemand nen tip was ich falsch mache?

danke