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...

[Delfino]

Busca en el codigo fuente del metodo protegido RemoveRow del CustomGrid y sabras como hacerlo efficiwentemente..

[Neftali [Germán.Estévez]]

En mi página web, en la sección de ejemplos, hay uno que se titula "Color y alineación en celdas de un StringGrid"; Aparte de lo que comenta el título, tiene implementadas las opciones de Cortar, Copiar y Pegar en el portapapeles; en concreto, la de cortar elimina una o varias filas seleccionadas (y luego las copia al portapapeles).
El código que hay en el cortar es el que necesitas. Está con código fuente, así que puedes echarle un vistazo.