¿Cómo que te retiras unos días? Yo hubiera jurado lo mismo que tú. De hecho, la propiedad Date está implementada con:
Código Delphi
[-]
function TCommonCalendar.GetDate: TDate;
begin
Result := TDate(FDateTime);
end;
Yo antes pensaba que un moldeo así, el compilador lo que hacía era truncar el valor, pero ya veo que no. Mas entonces, es un error de la componente, debería ser:
Código Delphi
[-]
function TCommonCalendar.GetDate: TDate;
begin
Result := TDate(Trunc(FDateTime));
end;
// Saludos