1   
2   void __fastcall TForm1::BorraFila(int i_fila)
3   {
4    int i=0, j=0;
5    for (i = i_fila;i < StringGrid1->RowCount - 1;i++)
6         for (j = 0;j < StringGrid1->ColCount;j++)
7              StringGrid1->Cells[j][i]=StringGrid1->Cells[j][i + 1];
8    StringGrid1->RowCount = StringGrid1->RowCount - 1;
9   }