Wie berechne ich alle Summen, Mittelwerte von 1 bis "Zahl"

[Muddy]

Kannst du mir das näher erklären?
Es sollen in einem StrinGrid und im Memofeld jeweils Summe und Mittelwert angzeigt werden.

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, Summe1, Summe2, i: integer;
Mittelwert: real;
begin
try
zahl1 := strtoint (edit1.text);
for i := 1 to zahl1 do
begin
Summe1 := Summe1 + i;
end;
end;
end;