Como Deletar um Linha da StringGrid????

procedure TForm1.RemoverLinhaClick(Sender: TObject);
Var
I, J, Coluna: byte;

begin
Coluna := 0;
If StrDescricao.Row < 0 Then Begin
ShowMessage(´Selecione uma linha a ser excluida.´);
Exit;
End; // for

// linha a ser limpa, onde está o cursor.
StrDescricao.Cells[Coluna,StrDescricao.Row] := ´´;

{Deslocando tudo o conteudo abaixo da linha excluida }
{para uma linha acima, para não deixar nenhuma linha em branco.}

For J:=StrDescricao.Row to StrDescricao.RowCount - 1 do Begin
StrDescricao.Cells[0,J] := StrDescricao.Cells[0,J + 1];
End; // for

End; // begin