void __fastcall TForm1::rbComprChange()
{
Series5->Clear(); //used for clearing the series to regenerate them from the user input

 for(int i=0;i<StringGrid1->RowCount;i++)
   {
Series5->AddGantt(StrToDate(StringGrid1->Cells[4][i]),StrToDate(StringGrid1->Cells[5][i]),i,StringGrid1->Cells[1][i]);
 Series5->NextTask->Value[i]=i;
    }
      // How and where should i draw these rectangles?!
     }