Удалить строку с заданным номером

void __fastcall TForm1::Button3Click(TObject *Sender)
    {
         int d= StrToInt(Edit9->Text);
         for (int j= 1;j<= StringGrid1->ColCount;j++)
         if(StringGrid1->Cells[3][j] != "")
         if(StrToInt(StringGrid1->Cells[3][j]) == d)
              {
                   StringGrid1->Cells[0][j]= "";
                   StringGrid1->Cells[1][j]= "";
                   StringGrid1->Cells[2][j]= "";
                   StringGrid1->Cells[3][j]= "";
                   StringGrid1->Cells[4][j]= "";
                   StringGrid1->Cells[5][j]= "";
                   StringGrid1->Cells[6][j]= "";
                   StringGrid1->Cells[7][j]= "";
                   for (int k= j;k< StringGrid1->RowCount-j;k++)
                        {
               StringGrid1->Cells[0][k]= StringGrid1->Cells[0][k+1];
               StringGrid1->Cells[1][k]= StringGrid1->Cells[1][k+1];
               StringGrid1->Cells[2][k]= StringGrid1->Cells[2][k+1];
               StringGrid1->Cells[3][k]= StringGrid1->Cells[3][k+1];
               StringGrid1->Cells[4][k]= StringGrid1->Cells[4][k+1];
               StringGrid1->Cells[5][k]= StringGrid1->Cells[5][k+1];
               StringGrid1->Cells[6][k]= StringGrid1->Cells[6][k+1];
               StringGrid1->Cells[7][k]= StringGrid1->Cells[7][k+1];
                        }
                   break;
              }
    }