Heutige mit unabhängigem Datum vergleichen

[Barret]

Ich hab das jetzt mal mit Delete probiert. Problem is nur, das der Compiler mir immer sagt: "Incompatible Typen String und procedure"

Code:

Code:

  Jahr :=  DateToStr(Now);
  if (DateToStr(Now) = '05.06' + Delete(Jahr, 1, 6)) then
    begin
    .
    .
    .