Problema con STringGrid

[[enecumene]]

siguiendo con el mismo hilo, me ocurre otro problema y es al intentar eliminar una fila especifica, aqui tengo un codigo de propiedad de seoane y que lo adapte para mis fines:

Código Delphi [-]
procedure EliminarFila(Grid: TStringGrid; Fila: Integer);
var
  i: integer;
begin
  if (Fila >= 0) and (Fila < Grid.RowCount)  then
  begin
    for i:= Fila to Grid.RowCount - 2 do
      Grid.Rows[i].Assign(Grid.Rows[i+1]);
    Grid.RowCount:= Grid.RowCount - 1;
  end;
end;

el codigo funciona al eliminar pero no elimina la fila especifica la que selecciono sino el primero. Existe una mejor solucion?

Saludos..