Gracias por la información Gatosoft, TDateTime funciona como tu comentas, pero no se como pasar los datos TTime en coma flotante de una forma predecible. De hecho la función EncodeDate ya funciona bien con fechas inferiores a 1900, el problema es cuando incluimos el tiempo de horas, minutos y segundos con EncodeDateTime.
Si fuera solo cuestión de guardar la información, podríamos pasar los valores de forma separada utilizando EncodeDate y EncodeTime, el problema es que el software se encarga de realizar cálculos de tiempo utilizando años,meses,dias, horas, minutos y segundos.
En resumen tenemos:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
Var
A,B: TDateTime;
begin
A := EncodeDateTime (1755,2,4,1,22,22,1); ShowMessage (DateTimeToStr(A));
A := EncodeDate (1755,2,4); B:= EncodeTime (1,12,22,1); ShowMessage (DateToStr(A)+ ' '+ (TimeToStr(B)));
A := EncodeDate (1755,2,4); A := EncodeTime (1,12,22,1);
ShowMessage (DateTimeToStr(A));
end;
end.
, atascado con TdateTime...