Anzahl Tage im Monat

[Luckie]

Keine Ahnung, was du falsch machst, aber bei mir funktioniert das:

Delphi-Quellcode:

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  days: Cardinal;
begin
  days := DaysInMonth(now);
  ShowMessage(IntToStr(days));
end;