1. Crie um novo formulário em sua ara de trabalho(file > new > form).
2. Altere suas propriedades de acordo com a tabela seguinte:

Propriedade         Valor
BordeStyle          bsDialog
Caption             Calendário
Color               clBtnFace
Font.Name           Arial
Font.Size           7
FormStyle           fsNormal
Height              437
Name                Calendario
Position            poScreenCenter
Width               703

3. Insira no formulário do calendário um componente monthcalendar localizado na paleta win32.
4. Ajuste suas propriedades para:

Propriedade         Valor
Aling               alClient
WeekNumbers         True (exibe o numero das semanas)

5. Caso seja necessario, ajuste a altura e largura da janela até que o calendário apresente os 12 meses.

6. O componente MonthCalendar possui a propriedade chamada Date, cuja função é definir a data a ser exibida. O problema é que esta propriedade fica ancorada com a data de criação do componente, ou seja, se você o inserir em um form em 16/12/08, sua data ficará fixada em 16/12/08, independente de qual seja a data em que você estiver executando o programa. Para resolver este problema, insira no evento onActivate da janela calendário:

procedure TCalendario.FormActive(Sender: TObject);
begin
  MONTHCALENDAR1.DATE := DATE;
end;

7. Pressione F9 e veja o resultado.

Você também pode personalizar seu calendário através da propriedade CalColors. Se puder usar um form com uma maior extensão para visualização, sugiro a fonte arial 8 em negrito. Fica perfeito.

Espero ter ajudado!
Abraços!

Por: mestrehurricane
Contato: crobertomesquita@yahoo.com.br