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.

Delphi-Quellcode:

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;