Hacer una suma al infinito con Delphi

Necesito hacer una suma que se va acumulando el resultado y pueda repetirse hasta el infinto.