Problema con EncodeDateTime < 1900

[[geolife]]

Hola amig@s,

Estoy haciendo una aplicación con Delphi 7 que trata con cálculos de fechas y me encuentro que al transformar valores inferiores al año 1900, los resultados con EncodeDateTime son incoherentes...

Código Delphi [-]
Var
 A: TdateTime;
begin

 // Fecha: 4 febrero 1755, 1 horas 22 minutos, 22 segundos - 
 A := EncodeDateTime (1755,2,4,1,22,22,1); // Uses DateUtils
 ShowMessage (DateTimeToStr(A));
 // Da como resultado 5 febrero de 1755 , 22 horas 37 segundos, es decir otro resultado?
 // Obviamente uno esperaría 4 febrero 1755, 1 horas 22 minutos, 22 segundos
 end;

He probado la misma rutina en Lazarus y funciona bien, no se si trata de alguna caracteristica especial en Delphi o que

¿Alguien se ha encontrado con lo mismo?

Gracias!