Fecha por defecto TCalendar

[[Caral]]

Hola
Parece que me confunci con el TMonthCalendar.
Para el TCalendar es asi:
Para una fecha especifica:

Código Delphi [-]
  Calendar1.Year:= 2011;
  Calendar1.Month:= 7;
  Calendar1.Day:= 8;

Para la fecha actual:

Código Delphi [-]
var
 Mes, dia, year: TDate;
begin
   Mes:= Now;
   dia:= Now;
   year:= Now;
   Calendar1.Day:= StrToInt(FormatDateTime('mm',dia));
   Calendar1.Month:= StrToInt(FormatDateTime('mm',Mes));
   Calendar1.Year:= StrToInt(FormatDateTime('yyyy',year));

El componente TCalendar usa la fecha en tres partes separadas, dia, mes y año, ademas el dato que adquiere es de tipo integer por eso hay que hacer la conversion tomando el dato de la fecha del sistema.
Saludos