Помогите с последовательностями!!!

Необходимо составить прогу на Delphi по нахождению в заданной последовательности чисел подмножесто чисел,сумма которых дает наибольшее число,
из множества {ai=ai-1 +i,a0=1,i=0,1,2....}.Помогите кто чем может,край как надо.