addition der zahlen eins bis 100

[FURT]

he
ich soll ein programm schreiben, dass die zahlen 1 bis 100 mit hilfe einer for do schleife zusammenrechnen soll. das heißt also:
1+2+3........usw....+100

mein code sieht im moment so aus

var
ergebnis , n : integer;
begin
for ergebnis:= 1 to 100 do
begin
n:= ergebnis + ergebnis +1;
Edit1.Text:= IntToStr (n);

das problem is dann das das laufende programm nur den letzten schritt angibt/anzeigt und das ist dann 100+100+1 so steht in meinem edit feld dann immer das ergebnis 201!
kann mir jmd helfen das das funktioniert ich weiß net was ich machen kann...