Problema con TMonthCalendar

[[escafandra]]

No utilices el operador ++ con propiedades, evitarás problemas incomprensibles (las propiedades vienen de delphi)

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

     F_cargo->MinDate = Date(); 
     F_cargo->MaxDate = F_cargo->MinDate; 

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

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

          nItem ++; 
     } 
}

Saludos.