Du bräuchtest eine Funktion, die dir sagt ob ein bestimmtes Jahr ein Schaltjahr ist.
Delphi-Quellcode:
function IstSchaltJahr(jahr:Integer):Boolean;
begin
...
Falls nur die Ferien im aktuellen Jahr berücksichtigt werden, kann man das Schaltjahrthema natürlich ignorieren.
Dann braucht du ein Array (oder eine Funktion) die für jeden Monat (1..12) die Anzahl der Tage liefert.
Die Dinge, die ich hier angesprochen habe sind auch etwas versteckt in der
VCL/
RTL von Delphi zu finden, aber ich würde es selbst programmieren.