Debería bastar con ańadir al princippio de la función
EliminarLinea las siguientes líneas:
Código Delphi
[-]
if (ARow = 0) or (Grid.RowCount = 1) then
Exit;
Evitas que lo llamen con la línea 0 como parámetro 0 con otro valor pero cuando sólo queda 1.