Intentando con Try ....

[marcoszorrilla]

Tienes toda la razón Román, tenía que haber insertado este código:

 { Date encoding and decoding }
 
 function IsLeapYear(Year: Word): Boolean;
 begin
   Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
 end;

O no haber dicho nada.

Un Saludo.