Error con fecha (fecha ya pasada)

[Rancy]

En primer lugar, saludos, y gracias por prestar atencion a este mensaje.

El caso es que tengo un pequeño trozo de código dónde consulto la fecha del sistema, y luego, muestro el año (solo para verificar que hasta aqui todo funciona correctamente).
El problema, es que el año es el 1899... Si; hace mas de 100 años.

Por si sirve de algo dejaré aquí el código:

Código Delphi [-]
procedure calc_anys(var anysup: integer; var anyinf: integer; var ComboboxEdat: TCombobox);
var
year, month, day:word;
Data: TDateTime;
begin
  DecodeDate(Data, Year, Month, Day);
  showmessage(IntToStr(year));
end;

Tengo entendido que cosas así suelen ocurrir cuando falla la pila de la placa base, pero en mi caso no es asi, la fecha de windows es la correcta, i no da problemas.

Alguien sabe que puede ocurrir?