Eliminando items de un Grid

[feliz-58]

Pregunta. tengo un grid al cual le agrego artículos, pero al momento de eliminar, uso la siguiente función,

Código Delphi [-]
procedure EliminarLinea(Grid: TStringGrid; ARow: Integer);
var
  i: Integer;
begin
  for i := ARow to Grid.RowCount - 2 do
    Grid.Rows[i].Assign(Grid.Rows[i + 1]);
  Grid.RowCount := Grid.RowCount - 1;
end;

Para eliminar la linea actualmente seleccionada, pero llega un punto donde las lineas ya se acaban y solo quedan las de cabecera, entonces cuando elimina la ultima la cabecera pierde el formado, alguna forma de evitar que se elimine la ultima linea cuando ya no hayan mas artículos en la lista?

Gracias.