Hola
Repito:
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