用Delphi7.0计算1+(1+2)+(1+2+3)+........+(1+2+3+.....+100)的和