Заполнить StringGrid добавлением строк из Edit-ов и выполнить поиск по любому столбцу

if (!(Edit1->Text == ""))
{
int  J;
      for (J = 1; J < StringGrid1->RowCount; J++)
      StringGrid1->Cells[0][J] = Edit1->Text;
Edit1->Text = "" ;
}

void __fastcall TForm3::Button1Click(TObject *Sender)
{
 int k=Form1->SG->RowCount;
 if (((E_1->Text)!="")&&(((E_2->Text)!=""))&&((E_3->Text)!="")&&((E_4->Text)!="")&&((E_5->Text)!="")&&((E_6->Text)!="")&&((E_7->Text)!=""))
 {
  Form1->SG->RowCount++;
  Form1->SG->Cells[0][k]=E_1->Text;
  Form1->SG->Cells[1][k]=E_2->Text;
  Form1->SG->Cells[2][k]=E_3->Text;
  Form1->SG->Cells[3][k]=E_4->Text;
  Form1->SG->Cells[4][k]=E_5->Text;
  Form1->SG->Cells[5][k]=E_6->Text;
  Form1->SG->Cells[6][k]=E_7->Text;
    }
  else
   {
      ShowMessage("Заполните все поля!");
   }
}

int k=StringGrid1->RowCount;
 
for (k=0;k==StringGrid1->ColCount;k++)
if (StringGrid1->Cells[0][k]==Edit7->Text)
{
StringGrid1->Cells[0][k];
StringGrid1->Cells[1][k];
StringGrid1->Cells[2][k];
StringGrid1->Cells[3][k];
StringGrid1->Cells[4][k];
StringGrid1->Cells[5][k];
StringGrid1->Cells[6][k];
}

int j=0, l=NumColForFind->Text;
 
for (k=0;k<StringGrid1->RowCount;k++)
{
  if (StringGrid1->Cells[l][k]==Edit7->Text)
  { // нашли. че-то с этим надо делать...
    for(int i=0;i<StringGrid1->ColCount;i++)
      StringGrid2->Cells[j][i]=StringGrid1->Cells[l][i]; //например заносим в другой грид (я тут заношу всю строку)
    j++;
  }
}

if (StringGrid1->Cells[l][k]==Edit7->Text)
{
  StringGrid2->Rows[l]=StringGrid1->Rows[k];
 
}

{
int j=0;
 
for (int k=0;k<StringGrid1->RowCount;k++)
{
  if (StringGrid1->Cells[0][k]==Edit7->Text)
  {
    for(int i=0;i<StringGrid1->ColCount;i++)
      StringGrid2->Cells[i][j]=StringGrid1->Cells[i][k];
    j++;
  }
}
}