Delphi - Limpiar TStringGrid

Como se limpia o resetea un TStringGrid con datos.

Recorre el StringGrid y pon un espaco vacio.

Para uno de 7 por 7 que tiene en la primera fila los días de la semana que no quiero borrar

for i := 1 to 7 do
for j := 1 to 7 do
SGMes.Cells[j-1,i] := ' ' ;

SGMes es el nombre del StringGrid;
i,j variables integer

for i := 1 to 7 do
for j := 1 to 7 do
SGMes.Cells[j-1,i] := ' ' ;

SGMes es el nombre del StringGrid;
i,j variables integer

for cont :=0 to Stringgrid1.colcount-1 do
for cont1 :=0 to stringgrid2.rowcount-1 do
stringgrid1.Cells[cont,cont1] := '';

// Limpiar el StringGrid

i=StringGrid1->RowCount-2; // Tomar Penultima Posicion
while(i>0)
{
StringGrid1->Cells[0][i]=StringGrid1->Cells[0][i+1];
StringGrid1->Cells[1][i]=StringGrid1->Cells[1][i+1];
StringGrid1->Cells[2][i]=StringGrid1->Cells[2][i+1];
StringGrid1->Cells[3][i]=StringGrid1->Cells[3][i+1];
StringGrid1->Cells[4][i]=StringGrid1->Cells[4][i+1];
StringGrid1->Cells[5][i]=StringGrid1->Cells[5][i+1];
StringGrid1->Cells[6][i]=StringGrid1->Cells[6][i+1];
StringGrid1->RowCount--;
i=StringGrid1->RowCount-2;
}

NOTA: en mi StringGrid contemplo un ultimo renglon
el cual esta vacio, no es de adorno, sino que cada ves
que ingreso datos en un renglon hago la apertura
de uno nuevo. por ello es que genero un renglon el
ultimo como vacio.
Espero te sirva mi codigo porque conmigo funciona
perfectamente.