Agrupar Filas en Stringgrid

[escorpionrojo43]

Hermano. Gracias por la aclaracion. Funciona a la perfeccion.
Una cosa mas. Despues de agregar esa clase es posible poder borrar una linea del stringgrid. osea para borrarla uso esto

Código Delphi [-]
procedure TForm2.Button6Click(Sender: TObject);
var  i: Integer;
begin
If MessageDlg('Seguro de borrar la Jugada '+#13+StringGrid2.Cells[1,StringGrid2.Row], mtConfirmation, [mbYes, mbNo], 0) = mrYes Then
  Begin
   For i := StringGrid2.Row To StringGrid2.RowCount - 1 Do
   Begin
     StringGrid2.Rows[i][0] := StringGrid2.Rows[i+1][0];
     StringGrid2.Rows[i][1] := StringGrid2.Rows[i+1][1];
     StringGrid2.Rows[i][2] := StringGrid2.Rows[i+1][2];
     StringGrid2.Rows[i][3] := StringGrid2.Rows[i+1][3];
     StringGrid2.Rows[i][4] := StringGrid2.Rows[i+1][4];
    End;
     StringGrid2.RowCount := StringGrid2.RowCount -1;
     SumarCeldas;
  End;
end;