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

[Muddy]

Hier ist mein Delphiecode!!
Die genaue Aufgabenstellung ist auch enthalten.
Ich weiß nicht, wie ich das PRogramm erstellen soll.

Delphi-Quellcode:

{In einem delphieprogramm soll Summe und der Mittelwert, aller Zahlen von 1 bis
 vom Benutzer eingegebenen Zahl einschließlich bestimmt werden.
Die einzelnen Zahlen erscheinen untereinander in einem Memofeld und in einem Stringgrid.
1. Zahl: ...
2. Zahl: ...

Summe: ...
Mittelwert: ...}

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

[edit=SirThornberry]Delphi-tag ergänzt - Mfg, SirThornberry[/edit]