Сдвиг даты с праздника до рабочего дня в цикле

bool rab_dn;
for (int i=0; i<razniza+1 ; i++) {
ed1_test=IncDay(ed1.FormatString("dd.mm.yyyy"),i);
int u=ed1_test.DayOfWeek();
 
for (int a = 0; a < RTD->Count; a++) {
if (StrToDate(RTD->Strings[a]).Val==ed1_test.Val)
{rab_dn=false; break;  }
else rab_dn=true;}
 
if ((StrToInt(ed1_test.FormatString("m"))>StrToInt(ed1.FormatString("m")) ||
StrToInt(ed1_test.FormatString("m"))<StrToInt(ed1.FormatString("m")))     &&
StrToInt(ed1_test.FormatString("dd"))==StrToInt(ed1.FormatString("dd")))
{
int y=StrToInt(ed1_test.FormatString("m"))-StrToInt(ed1.FormatString("m"));
if (y%3==0) {
 
if (u==7) {
eto3=IncDay(ed1_test,-1);
 
for (int r = 0; r < RTD->Count; r++) {
 
if (StrToDate(RTD->Strings[r]).Val==eto3.Val)
{ rab_dn=false ;   r++; }
else eto3=IncDay(ed1_test,-1); rab_dn=true; }
if (rab_dn==true)
{
ShowMessage( "1");
StringGrid1->Cells[1][StringGrid1->RowCount-4]="TO-1";
StringGrid1->Cells[0][StringGrid1->RowCount-4]=eto3.FormatString("dd.mm.yyyy");
StringGrid1->RowCount+=2;
}}}}

TDateTime   ed1_test=ed1_test.FormatString("31.07.2020");
 ShowMessage(ed1_test);
TStringList *df=new TStringList();
df->LoadFromFile("g:\\1\\Win32\\Debug\\calendar.txt");
for (int a = df->Count-1; a > 0; a--) {
if (StrToDate(df->Strings[a]).Val==ed1_test.Val)
{ShowMessage("нашел");
 ed1_test=IncDay(ed1_test,-1);
 ShowMessage("сместил");
 ShowMessage(ed1_test);
   }
else {
 
}}
return;
}

ShowMessage( "1");
StringGrid1->Cells[1][StringGrid1->RowCount-4]="TO-1";
StringGrid1->Cells[0][StringGrid1->RowCount-4]=eto3.FormatString("dd.mm.yyyy");
StringGrid1->RowCount+=2;