Determinar mes a partir de una fecha

[ecfisa]

Hola.

En Delphi 7 la opción de cloayza funciona bién, pero me sucede algo raro con ShowMessage:

Código Delphi [-]
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  ShowMessage(SysUtils.LongMonthNames[MonthOf(DateTimePicker1.Date) ]); 
end;

Desplegado el DateTimePicker, al hacer click sobre la flecha para avanzar el més, muestra el cuadro de dialogo con el nombre del mes y luego de aceptar entra en ciclo infinito...

No sucede lo mismo si:

Código Delphi [-]
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  Caption:= SysUtils.LongMonthNames[MonthOf(DateTimePicker1.Date) ]
end;

O si se edita el mes por teclado.

Supongo que al aceptar el cuadro de diálogo vuelve al DateTimePicker, disparando nuevamente el evento OnChange. Voy a investigarlo...

Saludos.