// Seltsamerweise besteht bei Einigen immer noch die Meinung, dass
// ein Jahr ein Schaltjahr sei, wenn sich die Jahreszahl ohne Rest
// durch 4 teilen läßt. Wenn dass so wäre, müsste die Erde in genau
// 365,25 Tagen um die Sonne laufen. Tut sie aber nicht. Sie
// braucht dazu 365,2422 Tage. Deshalb hat man einen Ausgleich
// festgelegt, in dem man in 400 Jahren nur 97 Schaltungen
// vornimmt. Dadurch kommt man auf 365,2425 Tage (nur der
// Neujulianische Kalender ist noch genauer). Durch diesen
// Ausgleich ist beispielsweise 1900 kein Schaltjahr gewesen,
// obwohl sich die Jahreszahl ohne Rest durch 4 teilen lässt.
// Normalerweise prüft man so: if IsLeapYear(Jahreszahl) then ...
// Für ältere Versionen kann man das mit dem folgenden Code
// vornehmen:

// Getestet mit D4 unter WinME

function schaltjahr(jahr: word): boolean; 
begin 
  if jahr mod 4 <> 0 then result := false else begin 
    if frac(jahr / 100) <> 0 then result := true 
    else result := (jahr div 100) mod 4 = 0; 
  end; 
end;