[Angel.Matilla]

Tengo el formulario que se ve en la imagen. Antes de pinchar en el TRadioGroup inferior hay que seleccionar la fecha de cargo.

Tengo este código.
- En el OnCreate del formulario

void __fastcall TfGenRec::FormCreate(TObject *Sender)
{
     Button1->Enabled     = false;
     GroupBox1->Visible   = false;
     RadioGroup1->Enabled = false;

     F_cargo->MinDate = Date();
     while (F_cargo->MinDate.DayOfWeek() == 1 || F_cargo->MinDate.DayOfWeek() == 7)
          F_cargo->MinDate ++;

     nItem = 0;
     F_cargo->Date    = F_cargo->MinDate;
     F_cargo->MaxDate = F_cargo->MinDate;
     while (nItem < 3)
     {
          F_cargo->MaxDate ++;
          if (F_cargo->MaxDate.DayOfWeek() == 1 || F_cargo->MaxDate.DayOfWeek() == 7)
               continue;

          nItem ++;
     }

}
//---------------------------------------------------------------------------

- En el OnPaint del formulario:

void __fastcall TfGenRec::FormPaint(TObject *Sender)
{
     F_cargo->Enabled = true;
     F_cargo->Date    = F_cargo->MinDate;
     F_cargo->SetFocus();
}
//---------------------------------------------------------------------------

- En OnKeyPress del formulario:

void __fastcall TfGenRec::FormKeyPress(TObject *Sender, char &Key)
{
     if (Key == 27)
     {
          Key = 0;
          Button2Click(NULL);
          return;
     }
}
//---------------------------------------------------------------------------

- En OnClick del Button2:

void __fastcall TfGenRec::Button2Click(TObject *Sender)
{
     if (!F_cargo->Enabled)
          FormCreate(NULL);
     else
          this->Close();
     return;
}
//---------------------------------------------------------------------------

- En OnClick del TMonthCalendar:

void __fastcall TfGenRec::F_cargoClick(TObject *Sender)
{
     if (F_cargo->Date.DayOfWeek() == 1 || F_cargo->Date.DayOfWeek() == 7)
     {
          Mensaje(1, "FECHA DE CARGO: " + F_cargo->Date.FormatString("dd/mm/yyyy") + "\n\nNo puede facturarse en días bancarios inhábiles.", "Volver");
          F_cargo->Date    = Date();
          F_cargo->SetFocus();
          return;
     }

     if (Mensaje(2, "Ha seleccionado como fecha de cargo: " + F_cargo->Date.FormatString("dd/mm/yyyy"), "La fecha es correcta\nModificar fecha") == 2)
     {
          F_cargo->SetFocus();
          return;
     }

     F_cargo->Enabled       = false;
     RadioGroup1->ItemIndex = -1;
     RadioGroup1-Enabled    = true;
     RadioGroup1->SetFocus();
}
//---------------------------------------------------------------------------

El problema es que si ya está habilitado el TRadioGroup y pulso ESC o hago click en el botón Cancelar, pulse donde pulse del calendario no me modifica la fecha y SÓLO me selecciona la fecha mínima, que suele ser la del día del sistema.
Todas las variables que hay por el código (nItem por ejemplo) y funciones (Mensaje(...)) están definidas.