Eliminar Fila de StringGrid...Consulta

[[BlueSteel]]

Hola amigos.. tengo una consulta....

Tengo un StringGrid en donde ingreso valores, pero tambien tengo la opcion de eliminar algunos valores

el codigo para eliminar un fila del StringGrid es (rejilla=StringGrid)

Código Delphi [-]
     For i:= Rejilla.Row to Rejilla.RowCount -1 do
             Begin
                  Rejilla.Rows[i][0] := Rejilla.Rows[i+1][0];
                  Rejilla.Rows[i][1] := Rejilla.Rows[i+1][1];
                  Rejilla.Rows[i][2] := Rejilla.Rows[i+1][2];
                  Rejilla.Rows[i][3] := Rejilla.Rows[i+1][3];
             End;
             Rejilla.RowCount := Rejilla.RowCount - 1;

bueno.. el problema se presenta cuando despues de eliminar un elemento... al incorporarle un elementro nuevo.. me borra todo el contenido anterior.. y no he logrado solucionarlo...

el codigo para agregar un item es

Código Delphi [-]
    If Sw_1 = '2' Then Rejilla.RowCount := Rejilla.RowCount +1;
     Rejilla.Cells[0,Rejilla.RowCount-1] := vCC;
     Rejilla.Cells[1,Rejilla.RowCount-1] := CB_Centro.Text;
     Rejilla.Cells[2,Rejilla.RowCount-1] := vMto.Text;
     Rejilla.Cells[3,Rejilla.RowCount-1] := vObs.Text;
     Sw_1 := '2';

Alguien sabe por que puede pasar esto...