Tal vez ya te has dado cuenta, o ha sido al ponerlo en el navegador, pero la última parte de tu código está mal.
Debería ser:
Código Delphi
[-]
A := EncodeDate (1755,2,4) + EncodeTime (1,12,22,1); ShowMessage (DateTimeToStr(A));
Sólo por curiosidad, he probado en XE2 y en Delphi 2010 y el error está corregido: la sentencia
Código Delphi
[-]
A := EncodeDateTime (1755,2,4,1,22,22,1);
funciona correctamente.
Un saludo,
LoPiTaL