Borrar fila seleccionada de un componente TStringGrid

[JM75]

Hola, tengo un componente TStringGrid con una serie de filas, siendo la primera fila fija. Lo que necesito es saber cómo se puede borrar la fila seleccionada. Hasta ahora he conseguido borrar la primera fila que no es fija con el siguiente código que me han pasado, pero no hace lo que necesito:

while (aux < Grid.RowCount) do
begin
Grid.Rows[aux]:=Grid.Rows[aux+1];
index:=index+1;
end;
if (Grid.RowCount > 2) then
begin
Grid.RowCount:=Grid.RowCount-1;
end;

Gracias por adelantado.

[aldmoscardi]

Lo que te sugiero es en actives la propiedad de la grilla selectrow, y que tomes el numero de fila al realizar clic sobre la fila, berifiques que no sea nulo y procedas a pasarle un clear al numero de fila seleccionada, cualquier cosa manda un correo que te mando un ejemplo

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

Una opción:

Código Delphi [-]
    //-----------------------------------------------------------
    // Mover el resto de filas hacia arriba
    procedure DeleteRow1(StringGrid: TStringGrid; ARow: Integer);
    var
      i: Integer;
    begin
      with StringGrid do
      begin
        // MOver una posicion hacia arriba el resto de líneas
        for i := ARow to RowCount - 2 do
          Rows[i].Assign(Rows[i + 1]);
        // Decrementar el número total de líneas
        RowCount := RowCount - 1
      end;
    end;
    //-----------------------------------------------------------

y otra opción:

Código Delphi [-]
  //-----------------------------------------------------------
    procedure DeleteRow2(StringGrid: TStringGrid; ARow: Integer);
    begin
      with THackStringGrid(StringGrid) do
        DeleteRow(ARow);
    end;
  //-----------------------------------------------------------

Te faltará (en el segundo caso) esta definición:

Código Delphi [-]
THackStringGrid = class(TStringGrid);

[JM75]

Hola, muchas gracias a los dos. Al final he implementado una mezcla de lo que tenía con la primera opción que me sugirió Neftali:

<DIV class=frame_codigo_delphi>Código Delphi [-]<DIV class=texto_codigo_delphi id=delphi_div_455c2fd095f16>
index := sgViajesCorto.Row;
if (sgViajesCorto.RowCount <> index+1) then
begin

while (index