Eliminar una Fila Completa de un StringGrid

[[BlueSteel]]

Con el siguiente codigo pregunto si quiero eliminar la fila Nº X... del StringGrid,

If MessageDlg('Seguro de Eliminar la Fila '+IntToStr(Rejilla.Row), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Begin
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];
end;
Rejilla.rowCount := Rejilla.RowCount - 1;
Fil := Fil - 1;
End;

Faltaba un detalle, para cuando quisiera agregar otro item.... se debe resta 1 a la Fila....( Variable Fil ),

con respecto a limpiar toda las celdas, realice un ciclo for, en donde me limpia todo...

gracias por su ayuda,,